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SOFTWARE SUPPORT CATEGORIES 


Digital Equipment Corporation (DEC) makes available four categories of software. These 
categories reflect the types of support a customer may expect from DEC for a specified software 
product. DEC reserves the right to change the category of a software product at any time. 

The four categories are as follows: 


CATEGORY I 

Software Products Supported at no Charge 

This classification includes current versions of monitors, programming languages, and 
support programs provided by DEC. DEC will provide installation (when applicable), advisory, 
and remedial support at no charge. These services are limited to original purchasers of DEC 
computer systems who have the requisite DEC equipment and software products. 

At the option of DEC, a software product may be recategorized from Category 1 to 
Category 11 for a particular customer if the software product has been modified by the customer 
or a third party. 


Software Products that Receive Support for 


Fee 


This category includes prior versions of Category 1 programs and all other programs avail- 
able from DEC for which support is given. Programming assistance (additional support), as 
available, will be provided on these DEC programs and non-DEC programs when used in con- 
junction with these DEC programs and equipment supplied by DEC . 


CATEGORY III 
Pre-Release Software 

DEC may elect to release certain software products to customers in order to facilitate 
Final testing and/or customer famltlarlzaflon . In this event, DEC will limit the use of such 
pre-release software to internal, non-competitive applications. Category III software is only 
supported by DEC where this support is consistent with evaluation of the software product. 
While DEC will be grateful for the reporting of any criticism and suggestions pertaining to a 
pre-release, there exists no commitment to respond to these reports. 


CATEGORY IV 
Non-Su pported Software 

This category includes all programs for which no support is given 
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PREFACE 


The software described in this document is furnished to 
purchaser under a license for use on a single computer 
system and can be copied (with inclusion of DEC'S copy- 
right notice) only for use in such system, except as may 
otherwise be provided in writing by DEC. 


Within this document. Chapter 1 provides an introduction to 
device drivers in general? Chapter 2 outlines the established driver 
structure conventions and the driver's interface to a program using 
the driver's services? Chapter 3 illustrates methods by which stand- 
alone programs can communicate requests for service to the driver and 
access the results of such requests. Subsequent sections document 
each of the individual drivers. Each such section is preceded by a 
title page on red paper. 
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CHAPTER 1 


USING DEVICE DRIVERS OUTSIDE DOS 


1.0 INTRODUCTION 

Subroutines to handle I/O transfers between a PDP-11 and each 
of its peripheral devices are developed as required for use within 
the Disk Operating System (DOS) . These subroutines are made avail- 
able within an I/O Utilities Package for the benefit of PDP-11 users 
who have configurations unable to support DOS or who wish to run 
programs outside DOS control. 

All the subroutines associated with one peripheral device form 
an entity known as a Driver. The Device Driver Package provides 
a general description of a driver and shows how it can be used in 
a stand-alone environment. The unique properties of each driver 
are discussed in separate documents issued as supplements to the 
Device Driver Package. The I/O Utilities Package for any system is 
determined by the peripherals of that system. Thus, the full doc- 
umentation for a particular package consists of the Device Driver 
Package and applicable supplements. 
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CHAPTER 2 


DRIVER FORMAT 


2 . 1 STRUCTURE 


The basic principle of all drivers under the DOS Monitor is 
that they must present a common interface to the routines using 
them in order to provide for device-independent operation. The 
subroutines are structured to meet this end. Moreover, the driver 
can be loaded anywhere in memory under Monitor control. Its code 
is always position-independent. 

The detailed description of a driver is found in Appendix A. 
This section is concerned with driver interfaces. 

2.1.1 Driver Interface Table 


The first section of each driver consists of a table which 
contains, in a standard format, information on the nature and capa- 
bilities of the device it represents and entry points to each of 
its subroutines. The calling program can use this table as required, 
regardless of the device being called. 

2.1.2 Setup Routines 

Each driver is expected to handle its device under the PDP-11 
interrupt system. When called by a program, therefore, a driver 
subroutine merely initiates the action required by setting the 
device hardware registers appropriately. It returns to the 
calling program by a standard subroutine exit. 

The main setup routine prepares for a data transfer to or 
from the device, using parameters supplied by the calling program. 
Normally, blocks of data will be moved at each transfer. The driver 
will only return control to the program when the whole block has 
been transferred or when it is unable to continue because there is 
no more data available. 
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The driver can also contain subroutines by which the calling 
program can request start-up or shut-down action, such as leader 
or trailer code for a paper tape punch, or some special function 
provided by the device hardware (or a software simulation of that 
for some similar device) , e.g. , rewind of a magnetic tape or DEC- 
tape. 

2,1.3 Interrupt Servicing 

The nature of the driver routine to service device interrupts 
is particularly dependent upon the extent of the hardware provi- 
sions of the device for controlling transfers. In general, the 
driver determines the cause of the interrupt and checks whether the 
last action was performed correctly or was prevented by some error 
condition. If more device action is needed to satisfy the program 
request^ the driver again initiates that action and takes a normal 
interrupt exit. If the program request has been fully met, control 
is returned to the program at an address supplied at the time of 
the request. 

2.1.4 Error Handling 

Device errors can be handled in two ways. There are some 
errors for which recoveiry can be programmed; the driver will, if 
appropriate, attempt this itself (as in the case of parity or tim- 
ing failure on a bulk-storage device) or will recall the program 
with the error condition flagged (as at the end of a physical paper 
tape) . Other errors normally require external action, per- 
haps by an operator. The driver calls a common error handler based 
on location 34 (lOT call) with supporting information on the proces- 
sor stack to handle such errors . 

2.2 INTERFACE TO THE DRIVER 
2.2.1 Control Interface 


The principal link between a calling program and any driver 
subroutine is the first word of the driver table. In order to 
provide the control parameters for a device operation, the calling 
program prepares a list in a standardized form and places a pointer 
to the list in the driver link. The called driver uses the pointer 
to access the parameters. If the driver need return status informa- 
tion, it can place it in the list area via the link-word. 
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The first word of the driver can also act as a busy indicator in 
that while it remains 0 the driver is not currently performing 
some task, whereas when the first word contains a list-pointer the 
driver can be assumed to be busy. Since most drivers support only 
one job at a time, the link -word state is significant. 

2.2.2 Interrupt Interface 

Although the driver expects to use the interrupt system, it 

does not itself ensure that its interrupt vector in the memory 

area below 400o has been set up correctly; the Monitor under DOS 
o 

takes care of this. However, the Driver Table contains the infor- 
mation required to initialize the appropriate vector. 
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CHAPTER 3 


STAND-ALONE USE 


Because each driver is designed for operation within the device- 
independent framework of DOS Monitor, it can be similarly used in 
other applications. Since the easiest way to use the driver is 
to assemble it with the program which requires it, this method will 
be described first. Other possible methods will be discussed later. 

3.1 DRIVER ASSEMBLED WITH PROGRAM 

3.1.1 Setting Interrupt Vector 

As noted in paragraph 2.2.2, the calling program must initial- 
ize the device transfer vector within memory locations 0-377. The 
address of the driver's interrupt entry point can be identified on 
the source listing by the symbolic name which appears as the con- 
tent of the Driver Table Byte, DRIVER+5. The priority level at 
which the driver expects to process the interrupt is at byte 
DRIVER+6. For a program which can use position-dependent code, 
the setup sequence might be: 

MOV #DVRINT, VECTOR ? SET INT. ADDRESS 

MOVB DRIVER+6, VECTOR+2 ; SET PRIORITY 

CLRB VECTOR+3 ; CLEAR UPPER STATUS BYTE 


(where the Driver Table shows at DRIVER+5: .BYTE DVRINT-DRIVER) . 


If the program must be position- independent, it can take ad- 
vantage of the fact that the Interrupt Entry address is stored as 
an offset from the start of the driver, as illustrated above. 

In this case, a sample sequence might be: 


MOV 

PC,R1 

;GET DRIVER START 

ADD 

# DRIVER-. ,R1 


MOV 

# VECTOR, R2 

; . . . & VECTOR ADDRESSED 

CLR 

@R2 

;SET INT. ADDRESS 

MOVB 

5(R1) ,@R2 

;...AS START ADDRESS+OFFSET 

ADD 

Rl, (R2)+ 


CLR 

(aR2 

;SET PRIORITY 

MOVB 

6 (Rl) ,@R2 
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3.1.2 Parameter Table for Driver Call 


For any call to the driver, the program must provide a list 
of control arguments mentioned in paragraph 2.2.1. This list must 
adhere to the following format^: 


[SPECIAL FUNCTION POINTER]^ 

[BLOCK NO. ] ^ 

STARTING MEMORY ADDRESS FOR TRANSFER 

NO. OF WORDS to be transferred (2's complement) 

STATUS CONTROL showing in Bits; 

0-2; Function (octally 2=WRITE, 4=READ) ** 

8-10; Unit (if Device can consist of several, 
e.g. , DECtape) 

11; Direction for DECtape travel (0 = Forward) 

ADDRESS for RETURN ON COMPLETION 
[RESERVED FOR DRIVER USE]® 


The list can be assembled in the required format if its content 
will not vary. The driver can return information in this area as 
described in a later paragraph; however, this will not corrupt the 
program data and it is cleared by the driver before it begins its 
next operation. 

On the other hand, most programs will probably use the same list 
area for several tasks or even for different drivers. In this 
case, the program must contain the necessary routine to set up the 
list for each task before making the driver call, perhaps as illus- 
trated in the next paragraph. It must be noted, however, that the 
driver may refer to the list again when it is recalled by an in- 
terrupt or to return information to the calling program. There- 
fore, the list must not be changed until any driver has completed 
a function requested; for concurrent operations, different list 
areas must be provided. 


^In some cases, it can be further extended as discussed in later paragraphs. 

^Required only if Driver is being called for Special Function; addresses a 
Special Function Block. 

^Required only if the Device is bulk storage (e.g.. Disk or DECtape). 

"^Most devices transfer words regardless of their content, i.e., ASCII or Binary. 
Some devices (e.g.. Card Reader) may be handled differently depending on the mode 
for these. Bit 0 must also be set to indicate ASCII=0, Binary=l. In these cases, 
the driver always produces or accepts ASCII even though the device itself uses 
some other code. 

®This word may be omitted if the device is bulk storage (see below) . 
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3.1.3 Calling the Driver 


To enable the driver to access the parameter list, the program 
must set the first word of the driver to an address six bytes less 
than that of the word containing MEMORY START ADDRESS. It can then 
directly call the driver subroutine required by a normal JSR PC,xxxx 
call. 


As an example, the following position-independent code might appear 


in a program which wishes to read Blocks #100-103 backward from DEC- 
tape unit 3 into a buffer starting at address BUFFER: 


MOV PC , Rj? 

ADD #TABLE+12-. ,Rj2( 

MOV PC,@Rjaf 

ADD # RETURN-. ,@R^f 

MOV #5404,- (Ri2f) 

MOV #-1024. ,- (Rj2f) 

MOV PC,-(Rjaf) 

ADD # BUFFER- . , gRj? 

MOV #103,- (R0) 

CMP -(R0),-(R0) 

MOV R0,DT 

JSR PC,DT.TFR 

WAIT : . 


TABLE: .WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 


;GET TABLE ADDRESS 

; GET AND STORE . . . 

; . . . RETURN ADDRESS 
;SET READ REV. UNIT 3 
;4 BLOCKS REQUIRED 
;GET AND STORE 
; . . .BUFFER ADDRESS 
; START BLOCK 

; SUBTRACT 4 FROM POINTER 
;SET DRIVER LINK 
;GOTO TRANSFER ROUTINE 
; RETURNS HERE WHEN 
; . . . TRANSFER UNDER WAY 
; RETURNS HERE WHEN 
; . . . TRANSFER COMPLETE 
;LIST AREA SET 
; ... BY ABOVE SEQUENCE 


3.1.4 User Registers 

During its setup operations for the function requested, the 
driver assumes that Processor Registers 0-5 are available for its 
use. If their contents are of value, the program must save them 
before the driver is called. 

While servicing intermediate interrupts, the driver may need 
to save or restore its registers. It expects to have two subroutines 
available for the purpose (provided by the Monitor under DOS) . It 
accesses them via addresses in memory locations 44g (S.RSAV) for saves 
and 46g (S.RRES for restores) using the sequence: 

MOV @#44,- (SP) ;OR 'MOV @#46,- (SP) 

JSR R5,@(SP)+ 
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It must also ensure that their start addresses are set into 


the correct locations (44o and 46o). 

O b 

At its final interrupt, the driver saves the contents of 
Registers 0-5 before returning control to the calling program 
completion return. 

3.1.5 Returns From Driver 

As shown in the example in paragraph 3.1.3, the driver returns 
control to the calling program immediately after the JSR as soon 
as it has set the device in motion. The program can wait or carry 
out alternative operations until the driver signals completion by 
returning at the address specified (i.e., RETURN above). Prior 
to this, the program must not attempt to access the data being read 
in, nor refill a buffer being written out. 

The program routine beginning at address RETURN varies 
according to the device being used. In general, the driver has 
given control to the routine for one of two reasons; namely, the 
function has been satisfactorily performed, or it cannot be carried 
out due to some hardware failure with which the driver is unable to 
cope, though the program may be able to do so. In the latter case, 
the driver uses the STATUS word in the program list to show the 
cause : 

Bit 15 = 1 indicates that a device parity or 
timing failure occurred and the 
driver has not been able to overcome 
this, perhaps after several attempts. 

Bit 14 = 1 shows that the end of the available 
data has been reached. 

The driver places in RO the content of its first word as a pointer 
to the list concerned. 

In addition, the driver can have transferred only some of the 
data requested. In this case, it will show in the RESERVED word of 
the program list a negative count of the words not transferred in 
addition to setting Bit 14 of the STATUS word. As mentioned in the 
note in paragraph 3.1.2, this applies only to non-bulk storage 
devices. The drivers for DECtape or Disks ^ always endeavor to 
complete the full transfer, even beyond a parity failure, or they 
take more drastic action (see paragraph 3.1,6) . 


^This includes RFll Disk; although this is basically word-oriented, 
it is assumed to be subdivided into 64-word blocks. 
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It is thus the responsibility of the program RETURN routine to 
check the information supplied by the driver in order to verify that 
the transfer was satisfactory and to handle the error situations 
appropriately. 

In addition, the routine must contain a sequence to take care 
of the Processor Stack, Registers, etc. As noted earlier, the driver 
takes the completion return address after an interrupt and has saved 
Registers 0-5 on the stack above the Interrupt Return Address and 
Status. The program routine should, therefore, contain some sequence 
to restore the processor to its state prior to such interrupt, e.g. , 
using the same Restore subroutine illustrated earlier: 

MOV @#46,- (SP) ;CALL REGISTER RESTORE 

JSR R5,@(SP)+ 

RTI ; RETURN TO INTERRUPTED PROG. 

3.1.6 Irrecoverable Errors 


All hardware errors other than those noted in the previous 
paragraph are more serious in that they cannot normally be overcome 
by the program or by the driver on its behalf. Some of these could 
be due to an operator fault, such as neglecting to turn a paper tape 
reader to on or to set the correct unit number on a DECtape transport. 
Once the operator has rectified the problem, the program could con- 
tinue. Other errors, however, will require hardware repair or even 
software repair, e.g., if the program asks for Block 2000 on a device 
having a maximum of 1000. In general, all these errors will result 
in the driver placing identifying information on the processor stack 
and calling lOT to produce a trap through location 

Under DOS, the Monitor provides a routine to print a teleprinter 
message when this occurs. In a stand-alone environment, the program 
using the driver must itself contain the routine to handle the trap 
(unless the user wishes to modify the driver error exits before as- 
sembly) . The handler format will depend upon the program. Should 
it wish to take advantage of the information supplied by the driver, 
the format rs as follows : 
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(SP) : 

Return 

Address 

2 

(SP) ; 

Return 

Status 

4 

(SP) : 

Error 

No . Code 

5 

(SP) : 

Error 

Type Code; 


6 (SP): 

Additional Informa- 


tion 


stored by lOT Call 

generally unique to driver 
1 = Recoverable after Operator 
Action 

3 = No recovery 
such as content of Driver, 
Control Register, Driver 
Identity, etc. 


As a rule, the driver will expect a return following the lOT call in 
the case of errors in Type 1 but will contain no provision following 
a return from Type 3. 


3.1,7 General Comment 


The source language of each driver has been written for use with 
particular, . 

which will not be accepted by the Paper Tape Software PAL-llR, in 
particular, .TITLE, .GLOBL, and Conditional Assembly directives. 

Such statements should be deleted before the source is used. Similarly, 
an entry in the driver table gives the device name as .RAD50 'DT' to 
obtain a specially packed format used internally by DOS. If the user 
wishes to keep the name, for instance, for identification purposes 
as discussed in section 3.3, .RAD50 might easily be changed to .ASCII 
without detrimental effect, or it might be replaced with .WORD 0 . 

3.2 DRIVERS ASSEMBLED SEPARATELY 


Rather than assemble the driver with every program requiring 
its availability, the user may wish to hold it in binary form and 
attach it to the program only when loaded. This is readily possible; 
the only requirement is that the start address of the driver should 
be known or be determinable by the program. 

The example in paragraph 3.1.2 showed that the Interrupt Ser- 
vicing routine can be accessed through an offset stored in the 
Driver Table. The same technique can be used to call the setup sub- 
routines, as these also have corresponding offsets in the Table, as 
as follows: 


DRIVER+7 

Open^ 

+10 

Transfer 

+11 

Close ^ 

+12 

Special Functions’ 


^If the routine is not provided, these are 0. 
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The problem is the start address. There is the obvious solution 
of assembling the driver at a fixed location so that each program 
using it can immediately reference the location chosen. This ceases 
to be convenient when the program has to avoid the area occupied by 
the driver. A more general method is to relocate the driver as 
dictated by the program using it, thus taking advantage of the 
position-independent nature of the driver. The Absolute Loader, 
described in the Paper Tape Software Handbook (DEC-11- 
Chapter 6, provides the capability of continuing a load from the 
point at which it ended. Using this facility to enter the driver 
immediately following the program, the program might contain the 
following code to call the subroutine to perform the transfer illus- 
trated in paragraph 3.1.3; 


MOV PC , R1 

ADD #PRGEND-.,R1 

MOV PC , R0 

ADD #TABLE+12-. ,R)? 


CMP -(R0),-(R0) 

MOV R0,@Ri 

CLR -(SP) 

MOVE 10(R1),@SP 

ADD (SP)+,R1 

JSR PC, (SRI 


;GET DRIVER START ADDRESS 

;GET TABLE ADDRESS 
;AND SET UP AS SHOWN 
; . . .IN SECTION 3.1.3 


: FINAL POINTER ADJUSTMENT 
; STORE IN DRIVER LINK 
;GET BYTE SHOWING... 

; . . .TRANSFER OFFSET 
; COMPUTE ADDRESS 
;GO TO DRIVER 


PRGEND: 

.END 


This technique can be extended to cover situations in which several 
drivers are used by the same program, provided that it takes account 
of the size of each driver (known because of prior assembly) and 
the drivers themselves are always loaded in the same order. 


For example, to access the second driver, the above sequence 
would be modified to; 


MOV 

PC,R1 

;GET DRIVER 1 ADDRESS 

ADD 

# PRGEND-. ,R1 


ADD 

#DVR1SZ,R1 

;STEP TO DRIVER 2 


DVRlSZ=n 
PRGEND : 

.END 
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An alternative method may be to use the Relocatable Assembler 
PAL-llS in association with the Linker program LINK-llS, both of 
which are available through the DECUS Library, The start address 
of each driver is identified as a global. Any calling program need 
merely include a corresponding .GLOBL statement, e.g., .GLOBL DT. 

3.3 DEVICE- INDEPENDENT USAGE 


As mentioned earlier, the drivers are assigned for use in a 
device- independent environment, i.e., one in which a calling pro- 
gram need not know in advance which driver has been associated with 
a table for a particular execution run. One application of this 
type might be to allow line printer output to be diverted to some 
other output medium because the line printer is not currently avail- 
able. Another might be to provide a general program to analyze data 
samples although these on one occasion might come directly from an 
Analog-to-Digital converter and on another be stored on a DECtape 
because the sampling rate was too high to allow immediate evaluation. 


Programs of this type should be written to use all the facili- 
ties that any one device might offer, but not necessarily all of them. 
For instance, the program should ask for start-up procedures because 
it may sometime use a paper tape punch which provides them, even 
though it may normally use DECtape which does not. As noted in 
paragraph 2.1.1, the driver table contains an indication of its 
capabilities to handle this situation. The program can thus examine 
the appropriate item before calling the driver to perform some action. 
As an example, the code to request start-up procedures might be (as- 
suming RO already set to List Address) : 


MOV 

#DVRADD,R1 

TSTB 

2(R1) 

BPL 

NOOPEN 

MOV 

R0 , @R1 

CLRB 

-(SP) 

MOVB 

7(R1) ,@SP 

ADD 

(SP)+,R1 

JSR 

PC,CR1 

NOOPEN : 



;GET DRIVER ADDRESS 
;BIT 7 SHOWS... 

;...OPEN ROUTINE PRESENT 
; STORE TABLE ADDRESS 
; BUILD ADDRESS 
;...0F THIS ROUTINE 

; . . .AND GO TO IT 
; FOLLOWED POSSIBLY BY 
;WAIT AND COMPLETION 
; PROCESSING 

; RETURN TO COMMON OPERATION 
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similarly, the indicators show whether the device is capable of 
performing input or output, or both; whether it can handle ASCII or 
binary data; whether it is a bulk storage device capable of support- 
ing a directory structure or is a terminal-type device requiring 
special treatment, and the like. Other table entries show the de- 
vice name as identification and how many words it might normally 
expect to transfer at a time (in 16-word units) . All of the informa- 


txon can readxiy be exammed by the caiimg program, thus enabling 


the use of a common call sequence for any I/O operation, as for 


example 


WAIT: 


MOV #DVRADR,R5 

JSR R5,I0SUB 
BR WAIT 

.WORD 10 
.WORD 103 
.WORD BUFFER 
.WORD -256 
.WORD 404 
.WORD RETURN 
.WORD 0 


SET DRIVER START 
CALL SET UP SUB 

SKIP TABLE FOLLOWING ON RETURN 
TRANSFER REQUIRED 
BLOCK NO . 

BUFFER ADDRESS 
WORD COUNT 
READ FROM UNIT 1 
EXIT ON COMPLETION 
RESERVED 
CONTINUE HERE . . . 

WHILE TRANSFER IN PROGRESS 


lOSUB: MOV @SP,R0 

MOV R5 , R1 

TST (Rl)+ 


MOV @R1,R1 

ADD R0,R1 

CLR -(SP) 

MOVB @R1,@SP 

ADD R0,@SP 

JSR PC,@(SP)+ 

RTS R5 


;PICK UP DRIVER ADDR 
;SET POINTER TO LIST 
;BUMP TO COLLECT CONTENT 
; ROUTINE CHECKS ON DEVICE 
;. .CAPABILITY USING Rl 
;..TO ACCESS LIST AND 
;..R0 THE DRIVER TABLE 
;IF O.K. . . 

;GET ROUTINE OFFSET 

;USE IT TO BUILD 
;... ENTRY POINT 

;CALL DRIVER 
;EXIT TO CALLER 


The calling program, or a siabroutine of the type just illustrated, 
may also wish to take advantage of a feature mentioned earlier: the 
fact that when a driver is in use its first word will be non-zero. 

The driver itself does not clear this word except in special cases 
shown in the description for the driver concerned. If the program 
itself always ensures that it is set to zero between driver tasks, 
this word forms a suitable driver-busy flag. Under DOS, the program 
parameter list is extended to allow additional words to provide link- 
age between lists as a queue of which the list indicated in the driver 
first word is the first link. 
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The preceding paragraphs are intended to indicate possible ways 
of incorporating the drivers available into the type of environment 
for which they were designed. The user will probably find others. 
However, he should carefully read the more detailed description of 
the driver structure in Appendix A, and the individual driver speci- 
fications before determining the final form of his program. 

A word of warning is appropriate here. Although most drivers 
set up an operation and then wait for an interrupt to produce a 
completion state, there are some cases in which the driver can fin- 
ish its required task without an interrupt, e.g. , "opening" a paper 
tape reader involves only a check on its status. Moreover, where 
"Special Functions" are concerned, the driver routine may determine 
from the code specified that the function is not applicable to its 
device and, therefore, will have nothing to do. In such cases, the 
driver clears the intermediate return address from the processor 
stack and immediately takes the completion return. Special problems 
can arise, however, if the driver concerned is servicing several 
tasks, any of which can causes a queue for the driver's services 
under DOS. To overcome these problems, the driver expects to be 
able to refer to flags outside the scope of the list so far de- 
scribed. This can mean that a program using such a driver may also 
need to extend the list range to cover such possibilities. Particular 
care should be exercised in such cases. 
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APPENDIX A 


I-O DRIVERS WITHIN THE DISK OPERATING SYSTEM 


The principal function of an I/O driver is to satisfy a Monitor proc- 
essing routine's requirement for the transfer of a block of data in 
a standard format to or from the device it services. This will in- 
volve both setting up the device hardware registers to cause the trans- 
fer and its control under the interrupt scheme of PDP-11, making 
allowance for peculiar device characteristics (e.g., conversion to or 
from ASCII if some special code is used) . 

It may also include routines for handling device start-up or 
shut-down such as punching leader or trailer, and for making available 
to the user certain special features of the device, such as rewind 
of magtape. 


A. 1 Driver Structure 

In order to provide a common interface to the monitor, all drivers 
must begin with a table of identifying information as follows: 


BUSY FLAG (initially 

0 ) 

FACILITY INDICATOR (expanded below) 

Offset to 

Standard Buffer Size 

Interrupt Routine* 

in 16-word Units. 

Offset to 

Priority for 

OPEN Routine * 

Interrupt Service 

Offset to 

Offset to 

CLOSE Routine * 

Transfer Routine * 

Space 

Offset to 

Special Functions* 

DEVICE 

NAME (Packed Radix-50) 


Offsets marked * will enable calling routine to 
indicate routine required. They will be con- 
sidered to be an unsigned value to be added to the 
start address of the driver. This may mean that 
with a 256-word maximum, the instruction referenced 
by the offset will be JMP or BR (routine) . 


Bits in the Facility Indicator Word define the device for moni- 
tor reference: 
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SPECIAL STRUCTURES 


GENERAL STRUCTURE 


15 14 


File- ^ 
Structured 


Uil 


A A 


Device DEC- 
tape (or 
similarly 
reversible) 
magtape — 


12 11 10 


Unused 


* Unused T 


..._J 


"Terminal 
Device 

Contains OPEN — 
Contains CLOSE 


Contains SPECIAL* 

*=Multi-unit System 

type devices (i.e., RK disk). 


Multi 

User 


Output 
Device 

Input Device 


Binary Device 
ASCII Device 


The table should be extended as follows if the device is file- 
structured; 



Unit j3 


} 


Similar Bit-Map 
Pointers for 
Multi-unit 
Devices 


The driver routines to set up the transfer and control it under 
interrupt, and possibly for OPEN, CLOSE, and SPECIAL, follow the 
table. Their detailed operation will be described later. 

A. 2 Monitor Calling 


When a Monitor I/O processing routine needs to call the driver, it 
first sets up the parameters for the driver operatioh in relevant 
words of the appropriate DDB^, as follows; 


XYZ; 



SPECIAL FUNCTION CODE 

DEVICE BLOCK NUMBER 

MEMORY START ADDRESS 

WORD COUNT (2's Complement) 

TRANSFER FUNCTIONS (expanded below) 
COMPLETION RETURN ADDRESS 


(DRIVER WORD-COUNT RETURN) Set to Zerci 



(User Call Address) 
(User Line Address) 


^Dataset Data Block - in full, a 16-word table which provides the main 
source of communication between the Monitor drivers and a particular set 
of data being processed on behalf of a using program. 
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The relevant content of the Transfer Function word is as follows: 


EOF 

or 

EOD- 



Provided that the Facility Indicator in the Driver Table de- 
scribed above shows that the driver is able to satisfy the re- 
quest, both from the point of view of direction and mode and of the 
service required, the Monitor routine places in Register 1 the relative 
byte address of the entry in the Driver Table containing the offset to 
the routine to be used (e.g., for the Transfer routine, this would be 
10) . It then calls the Driver Queue Manager, using JSR PC,S.CDB. 

The Driver Queue Manager assures that the driver is free to 
accept the request, by reference to the Busy Flag (Word 0 of the 
driver table) . If this contains 0, the Queue Manager inserts the 
address of the DDB from Register 0 and jumps to the start of the 
routine in the driver using Register 1 content to evaluate the address 
required. If the driver is already occupied, the new request is 
placed in a queue linking the appropriate DDB ' s for datasets waiting 
for the driver's services. It is taken from the queue when the driver 
completes its current task. (This is done by a recall to the Queue 
Manager from the routine just serviced, using JSR PC,S.CDQ,) 

On entry to the Driver Routine, therefore, the address following 
the Monitor routine call remains as the "top" element of the processor 
stack. .It can be used by the driver in order to make an immediate 
return to the Monitor (having initiated the function requested) , using 
RTS PC. It should also be noted that the Monitor routine will have 
saved register contents if it needs them after the device action. The 
driver may thus freely use the registers for its own operations. 

^Note that bits 7 and 14 are undefined in DOS Monitors which precede V008. 
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when the driver has completely satisfied the Monitor request, 
it should return control to the Monitor using the address set into 
the DDB. On such return, Register 0 must be set to contain the 
address of the DDB just serviced and since the return will normally 
follow an interrupt. Registers 0-5 at the interrupt must be 
stored on top of the stack . 

A. 3 Driver Routines 
A. 3.1 TRANSFER 

The sole purpose of the TRANSFER routine is to set the device in 
motion. As indicated above, the information needed to load the hard- 
ware registers is available in the DDB, whose address is contained in 
the first word of the driver. Conversion of the stored values is, 
of course, the function of the routine. It must also enable the 
interrupt; however, it need not take any action to set the interrupt 
vectors as these will have been preset by the Monitor when the driver 
is brought into core. Having then given the device GO, an immediate 
return to the calling processor should be made by RTS PC. 

A. 3.2 Interrupt Servicing 

The form of this routine depends upon the nature of the device. In 
most drivers it will fall into two parts, one for handling the term- 
ination of a normal transfer and the other to deal with reported 
error conditions. 

For devices which are word or byte-oriented, the routine must 
provide for individual word or byte transfers, with appropriate 
treatment of certain characters (e.g., TAB or Null) and for their 
conversion between ASCII or binary and any special device coding 
scheme, until either the word count in the DDB is satisfied or an 
error prevents this. On these devices, the most likely cause for 
such error is the detection of the end of the physical medium; its 
treatment will vary according to whether the device is providing 
input or accepting output. The calling program will usually need to 
take action in the former case and the driver should merely indicate 
the error by returning the unexpired portion of the word count in 
DDB Word 7 on exit to the Monitor. Output End of Data, however, 
will, in general, require operator action. To obtain this, the 
driver should call the Error Diagnostic Print routine within the 
Monitor by; 
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MOV DE VNAM , - C S P ) 

MOV #40f2,OCSP) 
lOT 


;SHOW DEVICE NAME 

;SHOW DEVICE NOT READY 

?CALL ERROR DIAGNOSTIC PRINT ROUTINE 


On the assumption that the operator will reset the device for further 
output and request continuation, the driver must follow the above se- 
quence with a Branch or Jump to produce the desired resumption of the 
transfer. 


Normal transfer handling on blocked devices (or those like RFll 
Disk which are treated as such) is probably simpler since the hardware 
takes care of individual words or bytes and the interrupt only occurs 
on completion. Errors may arise from many more causes, and their 
handling is, as a result, much more complex and device dependent. In 
general, those which indicate definite hardware malfunctions must 
lead to the situation in which the operator must be informed by 
diagnostic message and the only recourse after rectification will be 
to start the program over. 


At the other end of the scale there are errors which the driver 


xtss-tf ija.n 3.tt0inpt to ovsiTconiG by xGSto-irtxny tils tjra.nsfGjr — dsvxcs 
parity failure on input is a common example. If a retrial, or 
several, still does not enable a satisfactory conclusion, the driver 
should normally allow programmed recovery and merely indicate the 
error by Bit 15 of DDB word 5. Nevertheless, because the program may 
wish to process the data despite the error, the driver should attempt 
to transfer the whole block requested if this has not already’ been 
effected. Between these two extremes, the remaining forms of error 
must be processed according to the type of recovery deemed desirable. 


Whether the routine uses processor registers for its operation 
or not will naturally depend on considerations of the core space saved 
against the time taken to save the user's content. However, on 
completion (or error return to the Monitor) , as indicated in an earlier 
paragraph, the calling routine expects the top of the stack to contain 
the contents of Registers 0-5 and Register 0 to be set to the 
address of the DDB just serviced. The driver must, therefore, provide 
for this. 


A, 3. 3 OPEN 

This routine need be provided only for those devices for which some 
hardware initialization by the user is required. It should not 
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normally appear in drivers for devices used in a file-oriented manner. 
Its presence must be indicated by the appropriate bit (Bit 7) in the 
driver table Facility Indicator. 

The routine itself may vary according to the transfer direction 
of the device. For output devices, the probable action required is 
the transmission of appropriate data, e.g., CR/LF at a keyboard 
terminal, form-feed at a printer, or null characters as punched leader 
code, and for this a return interrupt is expected. The OPEN routine 
should then be somewhat similar to that for TRANSFER in that it merely 
sets the device going and makes an interim return via RTS PC, waiting 
until completion of the whole transmission before taking the final 
return address in the DDB. 

On the other hand, an input OPEN will likely consist of just a 
check on the readiness of the device to provide data when requested. 

In this case, the desired function can be effected without any interrupt 
wait. The routine should, therefore, take the completion return immed- 
iately. Nevertheless, it must ensure that the saved PC value on top 
of the stack from the call to S.CDB is appropriately removed before 
exit. In the case of drivers which can only service one dataset at a 
time (i.e.. Bit 0 of their Facility Pattern word is set to 0) and can 
never, therefore, be queued; it will be sufficient to use TST (SP)+ 
toeffect this. A multi-user driver, however, must allow for the 
possibility that it may be recalled to perform some new task wait- 
ing in a queue. This is shwon by the byte at DDB- 3 being non-zero. 

In this case, the intermediate return to the routine originally 
requesting the new task has already been made directly by S.CDB. The 
address now on top of the stack is the return to the routine, whose 
task the driver has just completed and which has called S.CDQ to 
dequeue the driver. This return must be taken when the first routine 
has performed its Completion Return processing. Moreover, this first 
routine expects to exit as from an interrupt. When a driver is recalled 
from a queue, it must simulate this interrupt. A possible sequence 
might be: 


MOV 

DRIVER, R0 

;PICK UP DDB ADDRESS 

MOV 

CSP)+,R5 

;SAVE INTERIM RETURN 

TSTB 

-3CR0) 

;COME FROM QUEUE? 

BEQ 

EXIT 


MOV 

0#177776,-CSP) 

;IF SO, STORE STATUS 

MOV 

R5,-(SP) 

; . . . & RETURN 

SUB 

#14, SP 

; DUMMY SAVE REGS 

JMP 

@14CR0) 



A- 6 



A. 3. 4 CLOSE 


As with OPEN, this routine should provide for the possibility of some 
form of hardware shut down such as the punching of trailer code and 
is not necessary for file-structured devices. Moreover, it is likely 
to be a requirement for output devices only. If it is provided. 

Driver Table Facility Indicator CBit 6) must be set. 

Again, the probable form is initialization of the hardware action 
required, with immediate return via RTS PC and eventual completion 
return via the DDB-stored address. 

A. 3. 5 SPECIAL 

This routine may be included if either the device itself contains the 
hardware to perform some special function or there is a need for 
software simulation of such hardware on other devices, e.g., tape 
rewind. It should not be provided otherwise. Its presence must be 
indicated by Bit 5 of the Facility Indicator. 

The function itself is stored by the Monitor as a code in the 
DDB as shown earlier. When called, the driver routine must determine 
whether such function is appropriate in its case. If not, the 
completion return should be taken immediately with prior stack clear- 
ance, as discussed under OPEN. For a recognized function, the 
necessary routine must be provided. Again, its exit method will 
depend upon the necessity for an interrupt wait or otherwise. 

A. 4 Drivers for Terminals 

The rate of input from terminal devices is normally dictated externally 
by the operator, rather than being program-driven; moreover, for both 
input and output, the amount of data to be transferred on each 
occasion may be a varying value, i.e., a line rather than a block of 
standard size. Furthermore, there may be problems with the conflict 
between echo of input during output. As a result, drivers for such 
devices will demand special treatment. 

Normal output operation, i.e., .WRITE by the program, is handled 
by the Monitor Processor. On recognizing that the device being used is 
a terminal, as shown by Bit 8 of the facility indicator, this routine 
always causes a driver transfer at the end of the user line, even 
though the internal buffer has not been filled. The driver, however, 
is given the whole of a standard buffer, padded as necessary with 
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nulls. Provided the driver can ignore these, the effect is that of 
just a line of output. 

Input control on the other hand, must remain driver responsibil- 
ity. Overcoming the rate problem will, in most cases, require circu- 
lar buffering within the driver until demanded by the Monitor. At 
this point, transfer of data already in should occur. If this is 
sufficient to fill the monitor buffer, the driver can await the next 
request before further transfer onward. If insufficient, it should 
operate as any other device and use subsequent interrupts to continue 
to satisfy the Monitor request. It must, nevertheless, stop any 
transfer at the end of a line in normal operation. In order to allow 
the Monitor to continue, the driver must simulate the filling of the 
buffer by null padding (of no consequence, since terminals are by 
nature character-based) . (Normal operation, of course, means response 
to user .read's and is indicated by the size of the buffer to be 
filled, namely the driver standard. Should the user be requesting 
.TRAN'S, the buffer size will vary from the standard in all likelihood 
and the driver may then assume he requires operation as a normal 
device — complete buffer fill-up before return.) 

Where input echo is a further complexity, there will doubtless 
be other requirements. If the echo is made immediately after the 
input, it may be desirable to have a second buffer to cater for the 
likely situation that the echo will not exactly match its origin. 

On the other hand, if the echo is held for any length of time, perhaps 
to provide correct relations between program-driven output and the 
echo, the second buffer could be too expensive, A larger input buffer 
and routines to allow for several outputs to one input character while 
sitting on that character might be more convenient. The conflict 
between such echo and program-driven output will require controlled 
switching within the driver input and output handlers. 
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RCll DISK DRIVER 


The RCll Disk Driver provides the software interface between the RCll 
Control and the Monitor in the Disk Operating System on PDP-11. It 
consists of routines to initiate block transfers of data to or from 
the disk and to handle interrupts arising from completion or through 
failure. 

It does not include OPEN & CLOSE processors. As a file-structured 
device, these will be unnecessary owing to the form of the Monitor 
file-management system. SPECIAL FUNCTION processing is also omitted. 

If it is found necessary to simulate the hardware function of a similar 
device, the necessary routine could be added later. 

This driver is part of the permanently resident Monitor when the 
RCll is the system disk for DOS; it can nevertheless be used when the 
RCll is just another device on a system based on a different type of 
disk. 


The driver is in two parts: 1) a table providing the interface 
between the driver and the Monitor, and 2) the routines to service the 
calls for disk operations. 

1. Driver Table 


The Driver Table (DC) occupies the first nine words of the driver. It 
complies with the standards specified for all Monitor-driver interfac- 


ing m general, and fur file— structured devices in particula 
descriptive elements of the table are set up as follows: 






a) Facilities available: Multi-dataset handling on a single 

® 100037 unit. 

Input & output in ASCII or binary. 
File-structured with no limit to 
the number of files that may be in 
creation at one time. 


b) 

standard buffer size: 

64 

c) 

Interrupt vector address: 

210 

d) 

Interrupt servicing 



priority 

5 

e) 

Device name 

DC 

f) 

Directory start block: 

1 

g) 

No. of bit map pointers: 

1 


1 



2 . Service Routines 


The driver contains two routines : Set-up Transfer and Service Inter- 
rupt. 


2.1 Setup Transfer (DC.TFR) 

This routine first initializes a counter which is used to control the 
number of retries in the event of parity or timing failure. Using the 
address of the DDE for the dataset it is servicing (as supplied by the 
calling routine in the first word of the driver table ) , it then collects 
control data from the DDE and transmits it to the hardware registers 
for the RCll, beginning at 377440, 

Two of the items involved require special processing before out- 
ward transmission; the rest are moved directly. 


1. For compatibility with RFll based DOS systems, the 
disk is handled in blocks of 64-words which are as- 
sumed to be continuous across whole RCll disk sur- 
face^. The block number passed to the driver must 
be converted to the 32-word sector and drive struc- 
ture of the hardware. 

2. The function bits contained in the DDE automatic- 
ally produce the required transfer operation. To 
them, however, must be added the INT ENE & GO bits 
(combined value lOlg) needed to set the RCll Control. 
Register correctly for the transfer operation to begin. 


On completion of the setup, control is returned to the calling 
Monitor routine via the interim return address stored on top of the stack 
by the calling sequence. 


2 .2 Interrupt Service CPC. INT) 

The RCll Control causes a priority-5 interrupt either on satisfactory 
completion of the transfer or because an error has been detected. Hav- 
ing saved the processor registers on the stack, the servicing routine 
must determine which of these events has occurred by examination of 
bit 15 of the Control Status Register. On transfer completion, it 
collects the address of the DDE it is servicing from the first word of 
the driver table and vBes it to return to the completion address set 
in the DDE. At this exit, R0 is set to the DDE address, as required 
by the established convention. 

^Although the user may manually set disk drive numbers without regard 
for sequence, the DOS Monitor will assume that a strict ascending order 
has been established, i.e.. Units 0 and 1 on a two-drive system. Drive 
units out of sequence will be ignored. 
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An error may be one of the several types as indicated by further 
bits of the Control Status or Extended Status registers. The servicing 
routine, however, is concerned with only two categories: 

(1) Errors which can be handled internally 

Data Synchronization or Block Parity failures may be eliminated on a 
second or later attempt. For the sake of simplicity, a retry is initi- 
ated by restarting the transfer from the beginning again rather than 
from the point at which the error was detected. If finally the 
eighth attempt produces no satisfactory result, the processing routine 
sets Bit 15 of word DDB+12 to show the failure. When a block-parity 
error is its cause, the data may still be of some value to the user 
program and so is passed on. However there may still be some words 
yet to be transferred beyond the failing block. The routine therefore 
attempts to resume from this point. If this is successful, it then 
takes the normal completion exit. Further failure, however, is treated 
as fatal (see below) . Such treatment is immediate in the case of a 
repeated data sync error, since then no data can have yet been trans- 
ferred. 

(2) Errors which must be rectified by the operator when recovery is possible 

All other failures cause an exit to the Error diagnostic print routine, 
with DSK ERROR F026 as the message and the contents of the Control Stat- 
us register as evidence. Write lock-out or non-resident disk may be 
the result of an operator fault. The operator may be able to correct 
this and resume program execution by the appropriate keyboard command. 

Such action will probably be impossible in the case of a non-existent 
memory error, and other errors classified as 'HARD' in the RCll Speci- 
fication or after persistent parity or timing failures. 

(3) V gfgf^B Program Listing 

A complete assembly listing of the driver follows. 
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i 

5 

3 

4 

5 

6 
7 
e 
s 

155 

11 

12 

13 

14 

15 

16 

17 

18 
19 
50 
21 
22 
53 
24 

55 

56 


irOPYRIGHT IR?!, DIGITAL EQUIPMENT CORP'. , MAVNAPD# MASS*. 

IVERSTON NUMBFRi VP00B 

f 

.TITLE DV.DC 

IDISK driver fRfll) VFRSI0N 1 

f IF RCll IS THE SYSTEM DISK, A SWCPT FaRM CF THIS 

f driver mav PE obtained BY INCLLDING A DEFINITION 

I FDR »SYSDV«. FOR A SYSTEM 8ASEC ON A DIFFERFNT 

I DISK, THIS DRIVER MAY BE ASSEMBLED WITH A 

: DEFINITION and RCU MAY TWEN PE TREATED AS JUST 

f another device, 

I 

f THIS VERvSiON contains SET-UP S TRANSFER 

I ROUTINES CNLV’, 

f 

R03%0 
PC1P0P1 Rlsy.! 

P0P0P2 R2»X2 
F0PeC3 R3»«3 
P0P0P4 R4By4 
D0P0P5 R5»y5 
P0P0P6 SP*%6 
0000^7 PC»X7 

.GLOPL DC 

STABLE DF standards AND POINTERS 


27 

F0000 

000000 

DC: 

.WORD 

0 

JCURRFNT DOB ADDRESS (0 IE IDLE! 

28 

0000? 

037 

dcflgs: 

.BYTE 

37 

fSTANCARD FACILITY INDICATOR 

29 

00003 

200 


,BYTE 

20 0 

icnormai a file*based5 

30 

PP004 

004 


>yte 

4 

ISTANOARD buffer SIZE716 

31 

00005 

070 


.BYTE 

DC , INTwDC 

IT.V, CONTENT 

32 

00006 

240 


.byte 

240 

^PRIORITY FOR T’,v‘, 

33 

00007 

000 


.byte 

0 

pDESPATCH TABLE 

34 

00010 

0?2 


.byte 

DC .TFRwDC 

fSHOWS TFP rtn cnly 

35 

0001 1 

000 


.byte 

0 


36 

00012 

000 


.BYTE 

0 


37 

00013 

000 


.byte 

0 

ISPARF 

38 

00014 

014670 

DC ,NAM| 

.RADS? 

»DC t 


39 

00016 

000001 


.WORD 

DC , DIR 

IMFD BLOCK 

40 

00020 

000000 


.WORD 

0 

IREOUIRFO FOR BIT MAP INFO 
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DV.rc 13-SEP»72 0?s50 PAGF ? 


1 HRAMSFFR INITIATE 


2 070022 

011767 

000102 

Or.TFRi 

MHV 

PFCjDC.RTC 

>7ERG RFTPY count 

3 

0J6700 

177746 


wnv 

DC f P0 

jSET DDP ADPRFSS 

iRUMP FPINTFR to FUGCK Nfl', 

4 070032 

022020 

DC.RPTi 

CMP 

CP01+. (P05* 

6 000034 

012702 

177442 


M0V 

*PC;0CS»*4.R? 

ISET MNR pointer 

£ 000040 

012012 


H C V 

(C0)*,PP2 

jmqvE in block NC', *-se 

7 000042 

006312 


ASL 

f P2 

»',,‘.mcctfteo 

e 000044 

062702 

000010 


ADD 

#10,R2 

ISTEP TO memory STCRE 

S 000050 

012012 


MOV 

CR0)*,»P2 

^MOVE IN ADDR REGD, 

10 00052 

012042 


MOV 


fit korc count 

11 00054 

012001 


MOV 

CR05+»R1 

fOET FUNCTION 

12 000S5 

151701 


BTSR 

PPC.Rl 

fADD TNT FNB t PC 

13 00060 

042701 

177470 


BIC 

77470, R1 

fREMOVE OTHER GARPASE (******5 

14 00064 

010142 


MOV 

Rl?s>CR2) 

fSENO TO rONTROl 

15 00066 

000207 


RTS 

PC 

IRETURN TO MONITOR FOR NCH 

16 


1 H ***««*) « 

CARFIMI USED AS 

LITFRAL by PREVIOUS INSTRUCTION 
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1 

2 0P007P 

3 0P0074 

4 0P0076 

5 070102 

6 07010 ^ 

7 070110 

8 070112 

9 070114 

10 70118 

11 

12 70122 

13 70124 

14 70126 

15 70130 

16 70132 

17 70134 

18 70140 

19 70144 

20 70150 

21 701S2 

22 70154 


23 70162 

24 70164 

25 70166 

26 70172 

27 70174 

28 

29 70176 

30 70202 

31 70204 

32 70217' 


33 70216 

34 70227! 

35 70222 


?TNTfRRUFT SERVTCF 


013746 

or ,TNTl 

MOV 

4<fV,RSAV,«(SP5 


P00044 

004636 

C! 167t?!0 


J.3R 

MflV 

R5»4 CSP5 + 
nr ,R 0 

»GET OCR ADDRFSS 

1 77676 
012701 


MDV 

'«nC,Dr.S*2.Rl 

IGET PTR TO H/W RFGS*. 

1 77444 
012103 


MflV 

CRiU,R3 

JvSAVE ERROR STATUS REGS*. 

1 004 1 1 



nr .agn 

jTF DATA I.ATE SFT TRY AGAIN 

012102 


MOV 

CRl)+f R2 

»any errors seen? 

100402 


RMI 

nr ,FRR 

|YES • GO FIND CAUSE 

000 1 70 

Dr.XITi 


• 14 fR0) 

ireturn monitor 

000014 

006302 

IFRROR 
Or.FRR 1 

ROfiTUF* 

ASL R2 

ICHFCK ERROR CAUSE 

1 00024 


PPL 

DC .OFF 

|FOR RATA FAILURE 

AIRFARY retried 8 TIMES? 

006327 


A PL 

CPC5 + 

000000 

or.RTci 

.WORD 

7 


1 03406 


RCvS 

DC ,PFR 

ITF SC FORCE CONTINUE 

004767 

nr , AGN 1 

JSR 

pr fDC.RPT 

iothernisf try again 

1 77672 
013705 

Or.RfcGl 

MOV 

••V,XTT»R5 


000042 

000166 

000004 

006303 

Dr. PER* 

ASL 

4fR61 

R3 

rTF DATA SYNC ERR, NON 

1 0001 1 


BPL 

or .fFF 

fV.’. TREAT AS fatal 

052767 


BTS 

•100070, 12CR01 

ireturn parity fail flag 

1 00000 
000712 
00671 1 


TpT 

• Rl 

lALREACY AT BLOCK END? 

001754 


PFQ 

Dr ,XTT 

|TF SO EXTT now 

'’11767 


MOV 

• PC, or. PTC 

|NO MCRF REPEAT TRIES NON 

1 77736 
005241 


TNC 

-.fRi) 

fCON'TTNUE RISK TRANSFER 
l'.,’. VIA rCMHCN EXIT 

000761 


PP 

DO, PEC 


IFRRCR 

TS NOT 

ImmFDTATELY RFCPVFRABLEi 

005067 

DC.DFFi 

ri R 

or 

IFREE RISK FOR EDP 

177576 

014146 


MOV 

"(Rl ) ,*(SP3 

lOisK status is evidence 

012746 


MOV 

• nc,EAO,*'(SP) 

ISET IF ERROR NC, 

001426 

032767 


BTT 

•PCRVR,nCFLGS 

ISYSTEM DRIVER? 

010000 

1 77564 
0 014 0 1 


RFQ 

DO ,SNO 

iNo " branch 

00*^016 


ri R 

• SP 

ffOOE TO FORCE A HALT 

000004 

DC.SND* 

TOT 


JGO TG OIAG*. PRT, 
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OB X* r« jew fil M 


CV.CC MACRO vcg'4«14 13"SEP-72 PAGF 4 


iPEPIMITIONSi 
1 77446 Dr ,ce?ar;^446 

ni^^njDjgl 

?*014?6 0r,FNCsi4?6 
P0(7044 v’,RSAVa44 
007042 v',XITb4? 
717070 SORVR«10000 
7000711 ,FhJO 
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cv.rc MACRO VO04«14 13-.SEP.72 PAGF 4 + 

SVHPCl TaRLF 


CC PP0(??f^RG 

DC, CCS* I7744(«i 
CC.FPR PP0122R 
CC.CFF 0P0176fi 
CC.RPT 0O0P32R 
CC.TFP 0P0P22R 

R0 a%5«P0ppc» 

P3 aV0P0P03 
SDRVR 8 010P0P 
V.XTT * 000042 
. APS. 000000 

000224 


nCFLGS 000002R 
po.DIR* 00000t 
DC.TNiT 00e070R 
DC, PER 0P0160R 
nC.RTC 00ei30R 
Or.XiT 000UfiR 
R1 8?{0000gi 

R4 a?J0000e4 

sp s*/{0000efi 

000 

00 J, 


DC.AGK 000J34R 
DC, PNC* 001426 
DC, MAM 000014R 
DC.REC 000140R 
DC.SKC 000222R 
PC 8?;000007 

R2 85:000002 

RS *7000005 

V'.RSAV* 000044 


ERRCRS DETECTFOI 0 
FREF CORF? 1R413', WORDS 
.LPkDTjDC 
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(4) V000h Program Listing 

^copyright 1971, DIGITAL EQUIPMENT CORP,, MAYMARD, MASS, 

^VERSION NUMBER* V000A 

1 

•TITLE DC 

jOISK DRIVER CRCll) VERSION 1 

f IF RCll IS THE SYSTEM DISK, A SHORT FORM OF THIS 

* DRIVER MAY BE OBTAINED BY INCLUDING A DEFINITION 

> FOR »SYSDV». FOR A SYSTEM BASED ON A DIFFERENT 

» DISK, THIS DRIVER MAY BE ASSEMBLED WITH A 

t DEFINITION AND RCU MAY THEN BE TREATED AS JUST 

» ANOTHER DEVICE. 

* 

I THIS VERSION CONTAINS SET-UP I TRANSFER 

I ROUTINES ONLY, 

I 

^00000 R0iX0 
000001 RU%1 
000002 R2i%2 
000003 R3i%3 
000004 R4>%4 
000005 R5»%5 
000006 SP»%6 
000007 PC«%7 


.GLOBL DC,S,R8AV,S.XIT 
»TABlE of STANDARDS AND POINTERS 


000000 

000000 

DC* 

.WORD 

0 

fCURRENT DDB ADDRESS C0 IF I0LE3 

000002 

037 


.SYTE 

37 

iSTANDARD facility INDICATOR 

000003 

200 


fBYTE 

200 

? (NORMAL a FILE-BASED) 

000004 

004 


• byte 

4 

^STANDARD BUFFER 8IZE/16 

000005 

070 


,8YTE 

oc,int»oc 

»T,V, CONTENT 

000006 

240 


• BYTE 

240 

fPRIORITY FOR T.V. 

000007 

000 


• BYTE 

0 

fDESPATCH table 

000010 

022 


• BYTE 

dc.tfr-dc 

ISHOWS TFR RTN ONLY 

000011 

000 


• BYTE 

0 


000012 

000 


•byte 

0 


000013 

000 


• SYTE 

0 

>SPARE 

000014 

014570 

OCsNam, 

- 9Ar)50 

1 nr » 


000016 

000001 


IwORD 

DC, DIR 

fMFD BLOCK 

000020 

000000 


• WORD 

0 

IREQUIRED FOR BIT MAP INFO 



iTRANSFER INIT 

iate 


000022 

011767 

DC.TFR* 

MOV 

•pc,dc,rtc 

pZERO RETRY COUNT 


000102 





000026 

016700 


MOV 

DC,R0 

fGET DDB ADDRESS 


177746 





000032 

022020 

OC.RPT* 

CMP 

CR05*, CR05* 

jSUMp POINTER TO BLOCK NO, 

000034 

012702 


MOV 

#DC,DCS-4,R2 

pSET HWR POINTER 


177442 





000040 

012012 


MOV 

CR0)+#PR2 

pMOVE IN BLOCK NO, ,,, 

000042 

006312 


A3L 

PR2 

P,., MODIFIED 

000044 

062702 


ADD 

#10, R2 

pSTEP TO memory STORE 


000010 





000050 

012012 


MOV 

CR05+»#R2 

pMOVE IN ADDR redd, ,,, 

000052 

012042 


MOV 

CR0)+,-CR2) 

pR WORD COUNT 

000054 

012001 


MOV 

CR0)+fRl 

IGET FUNCTION 

000056 

151701 


8138 

•PC,R1 

pADD INT ENB & GO 

000060 

042701 


BIC 

#177470, R1 

pREMQVE other GARBAGE (**♦***) 


177470 





000064 

010142 


MOV 

R1,-CR2) 

pSEND TO CONTROL 

000066 

000207 


RTS 

PC 

pRETURN TO MONITOR FOR NOW 


yC**<r***) • CAREiUI USED AS LITERAL 9Y PREVIOUS INSTRUCTION 
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lINTERRUPT SERVICE 




DC, inti 

• IFDF 

SYSDV 





JSR 

R5,S,RSAV 

IGO SAVE REGISTERS 




,ENOC 

.ifndf 

SYSDV 


00007P 

013746 

000044 


MOV 

4#V,RSAV,.CSP) 


000074 

004536 


JSR 

.ENDC 

R5,0C8P)+ 


000076 

016700 

177676 


MOV 

OC,R0 

iGET DOB ADDRESS 

000102 

012701 

177444 


MOV 

#DC^DCS-2»R1 

IGET RTR TO H7W REGS, 

000106 

012103 


MOV 

CRn+#R3 

ISAVE ERROR STATUS REGS, 

000110 

100411 


BMI 

OC.AGN 

|IF DATA LATE SET TRY AGAIN 

000112 

012102 


MOV 

CRn+^R2 

|ANY ERRORS SEEN? 

000114 

100402 


BMI 

DC, ERR 

|YE8 « GO FIND CAUSE 

000116 

000170 

000014 

OC.XITI 

JMP 

414CR0) 

IRETURN MONITOR 



lERROR 

ROUTINE 

1 


000122 

006302 

OC.ERRi 

A8L 

R2 

ICHECK ERROR CAUSE 

000124 

100024 


BPU 

DC, OFF 

|FOR DATA FAILURE ,,, 

000126 

006327 


ASU 

(PC)^ 

r•..• already RETRIED 8 TIMES? 

000130 

000000 

DC.RTCl 

• WORD 

0 


000132 

103406 


BCS 

DC, PER 

plF SO FORCE CONTINUE 

000134 

004767 

DC.AGNt 

JSR 

PC,DC,RPT 

fOTHERNISE TRY AGAIN 


177672 

DC.RECi 

• IFDF 

SYSDV 





JMP 

8,XIT+4 

ITAKE COMMON EXIT 




• ENDC 
•IFNDF 

SYSDV 


000140 

013705 

000042 


MOV 

4<<V,XlTfR5 


000144 

0001 65 
000004 


JMP 

4(R5) 





.ENDC 



0001S0 

006303 

DC, PERI 

A3U 

R3 

|IF DATA SYNC ERR, NOW ,,, 

000162 

100011 


BPL 

DC, OFF 

f,,. TREAT AS FATAL 

000154 

052760 

100000 

000012 


BIS 

#100000»12(R0) 

IRETURN PARITY FAIL FLAG 


000162 

005711 


T3T 

4R1 

lALREADY AT BLOCK END? 

000164 

001754 


BEQ 

OC.XIT 

lIF SO EXIT NOW 

000166 

011767 

177736 


MOV 

•PC#DC,RTC 

|N0 MORE REPEAT TRIES NOW 

000172 

005241 


INC 

«*(R1) 

fCONTlNUE DISK TRANSFER 

000174 

000761 


BR 

OC.REC 

!.•, VIA COMMON EXIT 



lERROR 

IS NOT 

immediately RECOVERABLE! 



DC.OFFi 

• IFDF 

SYSDV 





CIR 
• ENDC 

DC 

IFREE DISK FOR EOP 

000176 

014146 


MOV 

-CRn»*(SP) 

fOISK STATUS IS EVIDENCE 

000200 

012746 

001426 


MOV 

#DC,ENO,-(SP) 

ISET UP ERROR NO, 

000204 

000004 


lOT 


iGO TO DIAG, PRT, 
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tDEFINITIONSi 
177446 OC,DC8il77446 
000001 OC.DIRil 
001426 DC,EN0»1426 
000044 V,RSAV»44 
000042 V,xn«42 

000001 iENO 


000000 ERRORS 


DC 

000000RG 

DC.AGN 

000134R 

DC, DCS 

1 

177446 

DC. DIR 

• 000001 

DC.ENO 

1 001426 

DC, ERR 


000122R 

dc.int 

000070R 

DC. NAM 

000014R 

DC, OFF 


000176R 

DC. PER 

000150R 

DC.REC 

000140R 

DC.RPT 


000032R 

DC.RTC 

000130R 

DC.TFR 

000022R 

DC.XIT 


000116R 

PC 

i%000007 

R0 

■X000000 

R1 

1X000001 

R2 

■X000002 

R3 

•X000003 

R4 

1X000004 

R5 

•%000005 

8P 

1X000006 

S,R8AV 

1 

;»**«** 6 

S.XIT 

• 

i AA^iinit* G 

• 000206R 

V.R3AV 

■ 000044 

V.XIT 

1 

000042 
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RFll DISK DRIVER 


The RFll Disk Driver consists of routines to initiate block transfers 


^ j- « 

UJ. U.CIUCI. 




pletion or through failure. 


It does not include OPEN & CLOSE processors. As a file-structured 
device, these will be unnecessary owing to the form of the Monitor 
file-management system. SPECIAL FUNCTION processing is also omitted. 

If it is found necessary to simulate the hardware function of a simi- 
lar device, the necessary routine could be added later. 


This driver is part of the permanently resident Monitor when the 
RFll is the system disk. It may also be used when RFll is merely 
another device in a system based on a different type of disk. 


The driver is in two parts: 1) a table providing the interface 
between the driver and the Monitor, and 2) the routines to service the 
calls for disk operations. 

1. Driver Table 


The Driver Table (DF) occupies the first nine words of the driver. 

It complies with the standards specified for all Monitor-driver inter- 
facing in general, and for file-structured devices in particular. The 
descriptive elements of the table are set up as follows: 


a) Facilities available: Multi-dataset handling on a single 

=100037 unit. 

Input and output in ASCII or binary. 
File-structured with no limit to 
the number of files that may be in 
creation at one time. 


b) 

standard buffer size: 

64 

c) 

Interrupt vector address: 

204 

d) 

Interrupt servicing 



priority 

5 

e) 

Device name 

DF 

f) 

Directory start block: 

1 

g) 

No. of bit map pointers; 

1 


1 



2. Service Routines 


The driver contains two routines: Setup Transfer and Service Inter- 
rupt. 

2 . 1 Set-up Transfer (DF.TFR) 

This routine first initializes a counter which is used to control the 
number of retries in the event of parity or timing failure. Using the 
address of the DDE for the dataset it is servicing (as supplied by the 
calling routine in the first word of the driver table) , it then col- 
lects control data from the DDE and transmits it to the hardware regis- 
ters for the RFll, beginning at 377460. 


Two of the items involved require special processing before out- 
ward transmission; the rest are moved directly. 


1. The driver block number set into the DDE must be con- 

verted to meet the platter and word structure of RFll. 
All the platters currently under one control are con- 
sidered as a single continuous surface. As a result, 
the most significant bits of the block number repre- 
sent the appropriate platter number and the remainder 
the word starting the block. The required conversion 
is therefore merely multiplication of the block number 
by 64 across 21 bits. ^ 

2. The function bits contained in the DDE automatically 
produce the required transfer operation. To them, 
however, must be added the I NT ENE & GO bits (combined 
value lOlg) needed to set the RFll Control Register, 
correctly for the transfer operation to begin. 


On completion of the setup, control is returned to the calling 
Monitor routine via the interim return address stored on top of the 
stack by the calling sequence. 


2 . 2 Interrupt Service (DF.INT ) 

The RFll control causes a priority-5 interrupt either on satisfactory 
completion of the transfer or because an error has been detected. 
Having saved the processor registers on the stack, the servicing rou- 
tine must determine which of these events has occurred by examination 
of bit 15 of the Control Status Register. On transfer completion, it 
collects the address of the DDE it is servicing from the first word of 
the driver table and uses it to return to the completion address set 
in the DDE. At this exit, R0 is set to the DDE address, as required 
by the established convention. 
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An error may be one of the several types as indicated by further 
bits of the Control Status or Extended Status registers. The servic- 
ing routine, however, is concerned with only two categories: 

(1) Errors which can be handled internally 

Parity or timing failures may be eliminated on a second or later at- 
tempt. For the sake of simplicity, a retry is initiated by restarting 
the transfer from the beginning again rather than from the point at 
which the error was detected. If finally the eighth attempt produces 
no satisfactory result, the processing routine sets Bit 15 of Word 
DDB+12 to show the failure. It then checks if any words still remain 
to be transferred beyond the failing one. If so, it attempts to re- 
sume the transfer from this point. If this is successful, it then 
takes the normal completion exit. Further failure, however, is 
treated as fatal. 

(2) Errors which must be rectified by the operator (when recovery is 
possibly 

All other failures cause an exit to the Error diagnostic print routine, 
with DSK ERROR F026 as the message and the contents of the Control 
Status register as evidence. Write lock-out or non-resident disk 
may be the result of an operator fault. The operator may be able to 
correct this and resume program execution by the appropriate keyboard 
command. Such action will probably be impossible in the case of a 
non-existent memory error, and other errors classified as 'HARD' in the 
RFll Specification or after persistent parity or timing failures. 

( 3) Program Listings 

A complete assembly listing of the driver monitor Vj2f8-02 follows. 
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CV.rp MACPf' VC04-14 l?«SEPff72 •2!?I61 PAGF 1 


1 JfOPYRIGHT 1971. DIGITAL FQUIPHFNT fORF,, MAYNARD, MASS*. 

2 


V 

A 



IVERSTON 

NUMBFRf 

V003B 


•t 

B 




.tituf 

OV.DF 


6 



lOISK DRIVER CRFin VPRSICN 

1 

7 



t 

rfstcfnt 

mCMTOR OOI'TTNF 

FOR svstfm usage 

e 



I 


cdntainvS set up 

R transfer routines only 

9 


000000 

R0i?(0 




IP 


000001 

R1«X1 




11 


^00002 

R2«*2 




12 


000003 

R3»?{3 




13 


000004 

R4«*4 




14 


000006 

R63K5 




15 


000006 

SP«X6 




16 


^ 0 ^ 0 7 

PCa%7 




17 




.GLOBl 

DP 


18 



ITAPLF of standards AMD POINTERS 


19 

70000 

j^r*(7 

DFl 

.WORD 

0 

jrURRFNT OOP ADDRESS (0 IF IDLE) 

20 

70002 

037 

DFFLGSI 

.PYTE 

37 

^standard facility indicator 

21 

00003 

200 


,«ytf 

200 

^NORMAL 7 FILE*BASE0) 

22 

00004 

004 


.PYTE 

4 

ISTANDARD BUFFER SIZE/16 

23 

0 0006 

102 


,RYTF 

DF.TNT^DF 

it,v, content 

£4 

00006 

240 


,PVTE 

240 

fPRIORITY FOR T.V, 

25 

00007 

000 


.PYTE 

0 

ir^FSPATOH TABLE 

26 

00010 

022 


,9YTF 

OF ,TFR«DF 

IvSHOWS TFP RTN ONLY 

27 

0001 1 

000 


.PYTE 

0 


28 

00012 

000 


.BYTE 

0 


29 

0001? 

000 


.byte 

0 

ISPARF 

30 

00014 

P14760 

DF.NAMi 

.PAD50 

• DF » 


31 

0 0016 

000001 


,l*'ORD 

DF ,DIR 

fMFD BLOCK 

32 

00020 

000000 


.WORD 

0 

>RE(3UIRFO FOR BIT HAp INFO 

cv 


MACRO VO04*14 13 

i-<SEP-72 

02 1"! PAGF ? 



1 


ITRANSFFR INHIATF 


2 000022 

011767 

DF.TFPJ 

HOV 

•PC, DF, RTF 

jZERO rftry count 


0001 1 2 





3 000026 

1 11 737 

DF.RPTi 

MOVP 

• PC .FAiDF.ncS*! 

KLFAR DISK IN CASE OF FRRCF 


177461 





4 000032 

<>16700 


MOV 

0F»R2 

>get dcb address 


177742 





5 000036 

022090 


CMP 

(R0)+. CR05* 

fPUMP pointfr tc block no*. 

e 000P40 

012702 


MOV 

• DF,DCS-H2,R2 

»set mkr pointer 


1 77472 





7 000044 

111703 


MnvP 

•FC ,R3 

?SET IP Bi CCK CONVERSION 

e 000046 

012004 


MOV 

(90)+. R4 

>GET BLOCK number (*★****) 

5 000050 

0H6304 


ASL 

R4 

^CONVERT TO WORDS 

10 00052 

1 06103 


RHLP 

R3 


11 00054 

103375 


BCC 

.•4 


12 00056 

010342 


MOV 

R3»-fR2) 

>SFT UP DTSK address 1 FXT, 

13 00060 

010442 


MOV 

R4,..CR2) 


14 00062 

012042 


MOV 

CR0W,»(:R2) 

>MOVF IN WORD COUNT 

15 00064 

012042 


MOV 

CR0)*f -CRR) 

n MEMCPY ADDRESS 

16 00066 

0120^1 


MOV 

CR0)+,R1 

|0,FT FUNCTION 

17 00070 

1 51 701 


BTSP 

• FC.Rl 

MDD TNT FNP S DC 

18 00072 

042701 


BTC 

•1 77470. Ri 

IRFMOVE OTHER GARBAGE (***♦**) 


177470 





19 00076 

010142 


MOV 

R1 ^-CR2) 

fSFND TO CONTROL 

20 00100 

1 

000207 


RTS 

PC 

JRETURN TO MONITCP FOP NOW 


|f******l « CARFlll! USFD AS IITFPAI. PY PREVIDU? TNSTRUrTTBK 
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CV.CF MACRO yC04»!4 n"SEP*72 0?JP1 PAGE !! 
1 fINTERRUPT service 


2 

0701 02 

713746 

OF , TNT ! 

MOV 

«* V , RSAV f - 

3 

070106 

707044 

704536 


JSR 

R5»*(SPU 

4 

070117 

712771 


MOV 

WDF.DCSfRl 

S 

070114 

1 77460 
712172 


MOV 

(R1 1 + .R2 

6 

070 1 16 

177474 


BMI 

DF.FRR 

7 

000127 

716770 


MOV 

DF,R0 

8 

000124 

1 77654 
716077 

DF.XITI 

MOV 

14 (P0) ,PC 

9 

10 

00130 

707014 

732772 

;frror 

DF.frr* 

ROUTINE! 

BIT 

W1 1007,R2 

11 

00134 

711070 

701423 


BFQ 

OF , OFF 

12 

00136 

1^06327 

DF.AGNJ 

ASL 

WO 

13 

14 

70142 

<’’07070 

707140 IDF, RTC» 
103476 

• ^2 

BOS 

OF, PER 

15 

00144 

704767 


JSR 

PC fDF.RPT 

16 

70157 

177656 

713775 

df.reci 

MOV 

«AV,XIT,R5 

17 

70154 

C'0'^042 

707165 


JMP 

4CR5I 

« a 

A 711 4 ffl 

r. €/ 4, V K- 

707074 

tiff 

1 sj f: f V.' 

P« r BET D • 

U f Q 

-L VJI 

M i « m 

j. *j KJ 0 1 ir 

4. 

y^r * r u n 

19 

70166 

107070 

707012 

7 0571 1 


TST 

HRl 

20 

00177 

701755 


BFQ 

OF.XIT 

21 

70172 

705767 


TST 

DF.RTC 

22 

70176 

177742 

701472 


BFQ 

OF , OFF 

23 

00200 

705241 


INC 

-*fRl ) 

•S A 

lb 

t V r- c. 

fs oira 7 fi 9 

r - i_i f t J t 


Q Q 

ne OPf* 

h/ • t t * V 


jFRROR CAl'SE INTERRUPT? 

|YFS • GO FTNO CAUSE 
»GET DOR address 

ireturn monitor 

tPARITV CR missed? 

?YES RETRIED P TIMES? 


»IF SO FORCE OONTINUE 
fOTWFRWISF TRY AGAIN 


25 

26 70204 

27 70210 

28 70212 

29 70216 


30 70224 

31 70226 

32 70230 

33 

34 

35 

36 

37 

38 

39 

40 


P 0 F 0 6 7 
177570 
714146 
012746 
001 426 
C132767 
1 7 0 0 7 
177566 
001471 
705016 
707074 

1 77460 

70707 I 

701426 
707042 
707044 
717070 
70707 J 


IFRRCR IS NOT 
OF, OFF* CIR 


fALREACV AT BLOCK END? 
fTF SO EXIT NOW 

iOTHFRWISF OHFCK if 2N0 TIME 

|TF SO NO POINT IN MORE 
fOONTTNUE DISK TRANSFER 


ImmfOIATELY RECOVERABLE! 

DF JFRFE CTSt< FOP FOP 

"fR!)»«*fSP) IDTSK status IS EVIDENCE 

WDF,ENO#»CSPI »SET UP error NC , 

WSCRVRrDFFLr,8 |SYSTEM DRIVER? 


BFQ 

CLR 

DF.SNDi lOT 

yCEFIMTIONSi 

DF ,DCS»17746e 

DF,D1R«1 

0F,EN0»1426 

V’,XIT»42 

v',R8AV*44 

SDRVP»1707(3 

» .end 


DF.SND 
• SP 


*N0 » branch 

irODE 70 FORCE A HALT 

IGO TO DIAG‘. PRT, 
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CV.CF HACPC 13^SHP-72 0?S51 P4GF 3* 

SYMPCL TAPLF 


CF 

0f>ip«p(7pRr, 


DEFUGS 000002R 

DF.AGK 00e!36R 

C F , C C S s 

1774FP 


DF.CIR* 00000! 

DF.ENC* 001426 

df.frr 

0f^0l3'^R 


OF.IKT 300!02R 

DF.NAM e000l4R 

DF,f FF 

0C0P04R 


DF.PER 000S60R 

DF.REC 000150R 

CF ,RPT 

eP0??fiR 


DE,RTC« 000140R 

DF.SK'C 000230R 

of.-tfr 

0P0F2PR 


DE.XIT 000124R 

PC *5:000007 

Re «%0P0F0(? 


RJ *5:000001 

p? *5:00000? 

P3 s 

?!:0P0P03 


R4 *5f000004 

P5 *5:000005 

v'.RvSAV* 000044 

SDRVR « 

01 01700 


SP *5:000006 

V.XTT « 

000042 




. APS*. 

000000 

000 




000232 

00! 



EFRCRS 

DETECTEDS 

0 



FREF CORES ^9413 

. WORDS 


iLPkDTsDF 
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A listing of the DF: Driver for Monitor Vj?4 release follows: 

ICOPYRIGHT 1971, DIGlTAU EQUIPMENT CQRP,» MAYNAPO, MASS, 

AVERSION NUMBERi V003B 

.TITUE OP 

?DisK DRIVER (RPii) Version i 

I RESIDENT monitor ROUTINE FOR SYSTEM USAGE 

I CONTAINS SET UR & TRANSFER ROUTINES ONLY 

R0i%0 
0U0001 Ri»%i 
0000P2 R2iX2 
000003 R3«%3 
000004 R4»X4 
00000b R5i%5 
000006 SPSXS 
000007 PC»X7 

.SLOBL DF,S.RSAV,S.KIT 
ITABLE OF STANDARDS AnD POINTERS 


000000 

000000 

DPI 

• WORD 

0 

fCURRENT DOB ADDRESS (0 IF IDLE) 

000002 

037 


.BYTE 

37 

ySTANOARO facility INDICATOR 

000003 

200 


.BYTE 

200 

^normal S file. BASED) 

000004 

004 


.3YTE 

4 

fSTANDARO BUFFER SIZI/IS 

000005 

102 


.BYTE 

0P.1NT.DF 

fT,V. content 

000006 

240 


,3YTE 

240 

^PRIORITY FOR T,V, 

000007 

000 


.BYTE 

0 

yOESPATCH table 

00@0l0 

022 


.BYTE 

op,tfr»dp 

I5H0W8 fFR RTN ONLY 

000011 

000 


• byte 

0 


000012 

000 


.9VTE 

0 


000013 

000 


.BYTE 

0 

I8PARE 

000014 

014760 

DFkNAMI 

.RAO50 

IQF! 


000016 

000001 


• RORD 

OP.DlR 

IMFO SLOCK 

000020 

000000 


,R0RD 

0 

IREQUIREO FOR BIT MAP INFO 




/transfer initiate 



000022 

011767 

000112 

DF.TFR! 

MOV 

#pc,df,rtc 

/ZERO retry COUNT 


000026 

111737 

177461 

OF.RPTI 

MQV8 

PPC,PiDF.DCS*l 

/CLEAR disk in CASE OF 

ERROR 

000032 

016700 

177742 


MOV 

DF,RS 

/GET 008 ADDRESS 


000036 

022020 


CMP 

(R0)+i tRS)* 

/BUMP POINTER TO BLOCK 

NO. 

00004{q 

012702 

177472 


NOV 

#DP.DCS*12,R2 

/SET HWR pointer 


000044 

111703 


M0V3 

PPC,R3 

/SET UP Slock conversion 

000046 

012004 


MOV 

CR0)*,R4 

/GET block number (♦#♦***) 

000050 

006304 


ASL 

R4 

/CONVERT TO WORDS 


000052 

106103 


HOLB 

R3 



000054 

103378 


BCC 

..4 



0000S6 

010342 


MOV 

R3,.CR2) 

/SET UP disk ADORESS S 

EXT. 

000050 

010442 


MOV 

R4,.tR2) 



000062 

012042 


MOV 

CR0)*,»CR2) 

/MOVE IN WORD COUNT •• 

9 

000064 

012042 


MOV 

CR0)*,*CR2) 

n MEMORY address 


000066 

012001 


MOV 

CR0)*,RI 

/GET FUNCTION 


000070 

I5l70l 


BISB 

PPC,Rl 

/ADO INT ENB & GO 


000072 

04275?! 

177470 


SIC 

#177470, Hi 

/REMOVE other Garbage 

(****♦*) 

000076 

010142 


MOV 

RI,.CP2) 

/send to control 


000100 

000207 


RTS 

PC 

/return To monitor for 

NOW 


1C******) • CAREiUi USED AS LITERAL 8Y PREVIOUS INSTRUCTION 
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rso SAVE registers 


fl^TERRURT SERVICE 
OF. INTI .IFDF SVSDV 

JSR R5,S.RSAV 

.ENOC 

•IFNOF SYSOV 

013706 MOV FRV.RSAV^'-CSP) 

000040 


000106 

004536 


JSR 
• ENOC 

R5,SCSP)* 


300110 

0 1 27153 1 
177460 


HOV 

ttOF.OcS.Rl 

lERROR cause INTERRUPT? 

003114 

012102 


MOV 

CRn*,R2 


300116 

100404 


SMI 

OF, ERR 

lYES - GO FIND CAUSE 

330120 

016700 

177654 


MOV 

OF,R0 

IGET 008 A00RE8S 

000124 

016007 

M M fit i A 

OF.VITI 

MOV 

14(R03 pPC 

IRETURN MONITOR 


Ig! C ^ w 1 •? 

IERROR 

RDUTINEI 



000130 

032702 

f/t 1 4 1 /| 

OF.ERRI 

BIT 

#11000, R2 

^PARITY OR MISSED? 

300134 

V- i J VI 

001423 


BEQ 

of.qff 


000136 

036327 

iA \j^ CJ< \A \A 

df.agni 

A8U 

#0 

lYES • retried S times? 


«J ir> y) 

000l40 

OF.RTC* 

• •2 



303142 

103406 


BCS 

OF. per 

Ilf SO FORCE CONTINUE 

000144 

004767 


JSR 

pc,of,rpt 

IOTHERWISE TRY AGAIN 


177656 

OF.RECI 

.IFOF 

sYsnv 





JMP 

S,J<IT+4 

ITAKE common EXIT 




.ENOC 

.IFNDF 

5Y5DV 


0001S0 

013705 

000042 


MOV 

P#V.XIT,R5 


000154 

330165 

030004 


JMP 

4CR5) 





.ENOC 



000160 

052760 

100000 

000012 

OF. PERI 

BIS 

#100000, 12CR03 

/RETURN PARITY FAIL FLAG 

300166 

035711 


TST 

PRl 

/ALREADY AT BLOCK END? 

000170 

001755 


BEQ 

OF.XlT 

/IF 80 exit non 

000172 

305767 

177742 


TST 

DF.RTC 

/otherwise check if 2N0 TIME 

003176 

001402 


BEQ 

OF, off 

/IF SO NO POINT IN MORE 

300200 

005241 


INC 

• CRlJ 

/CONTINUE DISK TRANSFER 

000202 

030762 


BR 

OF.REC 

/,., VIA common exit 



IERROR 

IS NOT IMMEDIATELY RECOVERABLE! 



of.offi 

.IFOF 

SYSOV 





clr 

• ENOC 

DF 

/FREE DISK FOR EDP 

300204 

0 1 4 1 4 6 


MOV 

«CR1),«CSP) 

/DISK STATUS IS EVIDENCE 

000236 

012746 

031425 


MOV 

#OF,£NO,-tSP) 

/set UP error no. 

030212 

.ii303r^4 


lOT 


/go TO OlAG, PRT, 


idEFIMITIONSI 


177A60 DF,DC8al77480 
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DF.DiRsi 

0^1426 Uf*£N0«142b 
^Z^\'^A2 V,)(ITb42 
0 "'d '-'! 4 4 y , R 5 A V * 4 4 

,eND 


0 0 0 0 S? t R R 0 S S 


OF 

000 f' 00 RG 

of.agn 

000136R 

OF, DCS 

■ 177460 

DF.PIR 

* 0000VU 

DF.fcMO 

■ 001426 

OF, ERR 

000130R 

0 F,INT 

yawupR 

OF, NAM 

003014R 

OF, OFF 

000204R 

df.feh 

0 0 0 1 5 0 R 

OF.REC 

000130R 

df.rpt 

000026R 

of.rtc 

s 0 0 1 4 0 R 

DF.TFR 

000022R 

OF.XIT 

000124R 

PC 

a;{000007 

R0 

»%000000 

Rl 

■X000001 

R2 

»%00000g 

R3 

«%000003 

R4 

■X000004 

RS 

«%000045 

SP 

■X000006 

S.RSAV 

i Q 

S.XiT 

« G 

V.RSAV 

s 000044 

V • X IT 

« 000042 


s 0 ,■') y 3 i 4 R 
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and is subject to change without notice. DEC 
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RKll DISK DRIVER 


The RKll Disk Driver consists of routines which initiate block 
transfers of data to or from a disk cartridge and which handle in- 
terrupts arising from normal completion or errors. 

Special functions, OPEN and CLOSE processing, are not necessary 
and thus are not supported. Advance seeks are not supported in this 
initial release for several reasons, among which are: 

^ The majority of the DOS installations which 
utilize the RK have only one unit, so the 
extra code in the driver (approximately 250^^ 
words) would be detrimental in most cases. 

• No DOS system programs do their I/O in a 
manner which would reap huge benefits by 
seeking ahead. 

• The Monitor would have to be altered to inform 
the RK driver before a Bus Init is issued. 

The driver should be assembled at each installation where low 
density drives are present. If low density drives are present, 

ac 1 otaTG • 

(a) If all drives are low density, then define LOWDEN at 
assembly time. 

(b) If there is a mixture of high and low density drives, 
then define MIXED at assembly time and define CONFIG 
as follows: 

Imagine CONFIG as an 8-bit field, the 
rightmost bit of which corresponds to 
unit 0 . If a bit in a given position 
is one (1) , then that particular drive 
is low density. For example, C0NFIG=12 (8) 
100001010 ( 2 ) indicates that units 
1 and 3 are low density. 

LOWDEN and MIXED should not be simultaneously defined. If they 
are, MIXED is ignored, i.e., the assembly proceeds as if LOWDEN 
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is defined and MIXED is undefined. If MIXED is defined, but CONFIG 
is not, an assembly error will result, viz., a "U" flag on the line 
labeled DENIND. 

The default assembly condition, where no parameters are defined 
is that all units are high density. 

1. Driver Table 


This driver contains the driver table required for the Monitor 
interface. The elements are: 


(a) Facilities indicator=lJ2f2j337 


(b) Standard buffer size 

(c) Interrupt Vector Address 


Multi-dataset handling on 
a single unit. 

ASCII and Binary input and 
output . 

File-structured . 

Multiunit. 

No limit to the number of 
files which may be 
simultaneously created. 

256ijg (words) 

220 


(d) Interrupt servicing priority 5 


(e) Device name 


DK 


(f) Directory start block 1 

(g) Number of bit map pointers 8 


2. The Transfer Routine 


The retry counter is cleared; the unit number, block number, 
memory address, word count, and function (read or write) are 
obtained from the DDB, the address of which is in register zero 
at entrance. If the block number exceeds 4799, then output an error 
message. Otherwise: 


(1) convert the block number to a disk address, 

(2) set I.D.E, (bit 6) and GO (bit 0 ) in the function word, 
and 

(3) send to the controller and return to the caller via RTS PC 
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3 . The Interrupt Processing Routine 


This routine is entered at level 5. The registers are saved 
on the stack, and pertinent RK controller registers are obtained in 
case this is an error. If it is not an error, and the last function 
issued was not a drive reset (see below) , the completion return 
(@(DDB+14) is taken. If it is an error situation, then an attempt 
to re-try will be made if the error was one of the following: 


(1) 

any " 

soft" error. 

(2) 

seek 

incomplete , 

(3) 

read 

timing error 

(4) 

data 

late, or 

(5) 

seek 

error 


All other error conditions result in a fatal error message. 
In addition, if the word count is not zero after eight re-tries, 
a fatal error message is issued. Otherwise, a parity error is 
returned. 


NOTE 

Errors (2), (3), (4), and (5) above are among the 
"hard" errors, a control reset must be issued in 
order to continue. Additionally, a drive reset must 
be issued in order to continue after a seek incomplete. 
Thus, if the last function issued was a drive reset, 
the retry logic is called. 
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4 . V002 Program Listing 


A listing follows, conditionalized for all drives being high 
density. 


CV.fTKW MACPC VCf?4-14 13-SEP-72 i?2?52 PAGF 1 


1 

2 

w 

4 

R 

6 


7 

,TFnF 

8 

.TITtF 

9 

,FNnc 

10 

,TFK*CF 

11 

.tfmcf 

12 

.titlf 

13 

,fnrc 

14 

,TFDF 

15 

.TF!^2 

16 

.TITLF 

17 

,TFF 

18 

.TITLF 

19 

.FNGr 

20 

.FNDC 

21 

,FNDC 

22 


23 



24 


1 0 P B 
DV.fKL 

LGi*r£N 
CrKF IG 
DV ,nKM 

CGKF TR 
CGNP IG%1 
GV.'^KL, 

ov ,nKi^ 


fRKl'n VFRSIGN V0G5A 

00? 

rtGTTAI FQUIPyFNT CCPPGRATTOK 
FASSACHMSFTTS JUNF 1971 


25 

26 

27 

28 


JGISK DPTVEP 
) 

JCOPYRIGHT 
;^^AYKARG, 
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CV,f?KM MACf?C 13^SeP-»72 ?!?;F2 PAGF •> 


1 

S’ i? g '■? 55 

R0s7,0 

2 

P3P001 

R1=X1 

3 

P0(?0i^2 

R2 = 5:2 

4 


R3»153 

B 

r/ 0 (7 0 4 

P4«%4 

e 

P0I7005 

PS»1{5 

f 


Rgs^g 

g 

03^007 

P(!«557 

9 

1 7745*0 

RKDS«177400 

10 

1 77402 

RKER*177402 

1 1 

1 77404 

RKCS«1 77404 

12 

*77406 

RKWrsl77406 

13 

1 77410 

pKBA»i 7741 a 

14 

1 77412 

RK0Aal77412 

15 

000001 

RKDIPal 

16 

000044 

v)iRSAV*44 

17 

000042 

V,XITs42 

16 

177776 

PSsI 77776 

19 

010000 

snRVR«i030a 


20 

21 

22 ,r,Lr!pL DK 

23 

24 pSTANnAPO ons IMFPPArF TARI E 

25 


26 

00000 

000070 

DK 1 

, '‘ORD 

0 

|0 TF IDLR» DDB FTP OTHFRWISE 

27 

0000? 

1 02037 

dkflgsi 

.'^^ORC 

102037 

tFADII, ITER '*OPD 

28 

00004 

0 20 


,«yTF- 

20 

,<?Tr ELFFFR SIZF TS 256, 1*CRDS 

29 

00006 

172 


,ryte 

DKl^^T-OK 

pDFFSET TD interrupt HANDLER 

30 

00006 

240 


.ryte 

240 

ipriority lfvfl 5 

31 

00007 

000 


.RYTE 

0 

»KiO OPEN routine 

^ 2 

00010 

040 


.RYTE 

DKSTRT^DK 

fOFFSFT TO TRANSFER HANDIER 

33 

0001 1 

000 


,RYTE 

0 

CLOSE routine 

34 

00012 

0 7 0. 


.BYTE 

0 

pNO SFECI.au FI'NOTICNS 

35 

00013 

0 00 


.ryte 

0 

pCURRFNTUV LNLSFC 

36 

00014 

016270 

DKNAMi 

,RAD50 

/DK/ 

pDEVIOE NAVF 

37 

00016 

000001 


, WORD 

RKCTR 

pFIRST mfo RtOCK 

38 

00020 

000000 


.'^ORp 

0.0»0»0.0»0f0.0 

IPIT MAP POINTERS 


00022 

000000 






00024 

000000 






00026 

000000 






00030 

000000 






0003? 

00007^ 






00034 

0 00 05/0 






00036 

000000 





39 







40 

00040 

011 7«7 

r.*5/0 174 

^^5STRT^ 

H^V 

•FC ,DKRFPT 

pCLEAR RETRY INDICATOR 

41 

00044 

116001 
00001 3 

nKRTRY J 

f-inVR 

1 3 ( R 0 1 , R 1 

pGFT IMT IN Rlfl3**155 

42 

00050 

P 4 2 7 0 1 

1 77770 


HIC 

77770, R1 


43 




, TFDF 

xFD 


44 




.TFMDF 

iDi'DEN 


4B 




MOV 

R1 ,R1 

psavf unit FOR later use 

46 




.fn^c 



47 




,fndc 
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CV.rKH VCC!14*14 l3^?EP-72 ^??;S2 PAG^ 7* 


48 

70754 

7 6 2 1 

ASS 

R1 

HEFT-JUSTIFY UMT 

49 

70756 

'^0^77 i 

ROS 

R1 


ep 

70767 

006771 

RTiR 

R1 


51 

70762 

7 6 e 7 1 

RPR 

R1 

rLNIT KCiA AS DESIRED 

52 

7 076 4 

722027 

C>^P 

(P0) + , (R0U 

^pointer ddb+plcck 

53 

70766 

712072 

MGV 

(F01+,R2 


£4 



,tfdf 

VIXFO 


5 5 



, TFM7.F 

U06re^ 


56 



Mr'\/ 

(Pd + .R.I 

»GET DE^^STTV PATTFPN 

57 



, u' (1 R r. 

CPNF IG 


58 



ASL 

R3 

?MnVE APPPOP. TD LMT 

59 



DFC 

R4 


6P 



RGE 

,*.4 


61 



rtrc 

,+4 

fJF Lfl* DFNSITY 

62 



ASL 

R2 

JAD>TUST Bi CCK NJD, 

63 



,Ffwnc 



64 



,ENDC 



65 



. TFPF 

L 7 r e \i 


66 



ASU 

R2 


67 



,FMnc 





CV.nKW MACPC ve04«,l4 13-.sep»72 02J?2 PAGP 


1 

070070 

02^227 

0 1.13^0 



R2,*4800, 

?TS 

BLCCK WTTMIN bounds? 

2 

07 0074 

103 4 1, 0 


RI,G 

DKlK'20 

?YES 

• BRANCH 

3 

070076 

014046 


MTV 

-fR0) ,*CR6) 

»OIJTPlT IlLFCAL BLCCK NUMBER 

4 

000100 

012746 
'^01 435 


M0V 

<<1 435,«(R6) 

1 AND 

6235 

B 

0001 0-1 

000501 


BP 

DKER20 

! • • • 

AFTER SYSOV CNK 


0001 06 

060201 

D*<!N10 ! 

ADD 

R2jPi 

JADD 

IN valid OLCTIENT 

7 

0001 10 

006202 


A SR 

R2 

» AD3 

REMAINDER FCR DIV BY 12 

e 

00 01 12 

0 0 « 2 ‘7 2 


A SR 

R2 



s 

0001 14 

060402 


A no 

R4,R2 



10 

00116 

01^204 

DKIK20I 

MOV 

R2»P4 

lOIVIDE BV 16 * SAVE REMAINDER 

11 

00120 

042704 

1 777^2 


BTC 

K1 77760, R4 



12 

00124 

040402 


BTC 

R4 ,C2 

ifytract ouottem ,,, 

13 

00126 

w » 1 3 6 7 


BMP 

nif TK 1 0 

« 

B • « • 

TP AMV RiiTi r crcm t 

j. ' 4. v- w • ' fc. v-- Ihp « 

14 

00130 

020427 


CMP 

R4,*l?, 

JOHFCK REMAINDER 



000014 






15 

P01 3d 

072402 


Bl T 

.+6 

ITF 

BFTWEFN 12 g 15 

16 

00136 

062704 

000004 


ADO 

«4 ,P4 

1 /• '. 

CAUSF SURFACE INCR', 

17 

00142 

060401 


ADO 

R4 ,R1 

?PUT 

SECTOR INTO REST 

18 

00144 

012704 

1 77412 


MOV 

^RKDA,R4 



IQ 

00! §0 

010114 


MOV 

R1 ?«R4 

• SET 

L P DISK A D r R F S S 

20 

00152 

012044 


MOV 

CR05-k.^fR4) 

Uh 

LP mpmORY address 

21 

00154 

012044 


MOV 

CR0?*,»fR4) 

fSET 

IF COUNT 

22 

00156 

012001 


MOV 

(Rgl+.RI 

jput 

IN THE FUNCTION 

23 

00160 

151701 


BTSR 

•PC,R1 

» SET 

T.D,F, AKO GO BITS 

24 

00162 

042701 


HTC 

#177460, PI 

fOLEAP GARBAGE -****♦• 



1,77460 






25 

00166 

010144 


MOV 

R 1 , - ( R 4 5 

ISE^D FU^^TTO^ TC CrNTROL 

26 

00170 

000207 


RTS 

PC 



27 



t 

m'tf****m 

U5fe‘0 AS UTTpRAL 

RY THE PRPVTOUS TKSTRUCTIDN 



tJ fV) 


DV.CKH macro VC04-14 13-.SEP-»72 0?lP2 PAGF 4 


E 0P017#^ 
g 000200 

7 e00?e4 

e 000210 
S 000212 

10 00214 

11 0021fi 

12 00220 

13 00224 

14 00226 



1 

1 

IN'TERRUPT PROCESSOR 


0 1 3746 
000044 

DKINTi 

MOV 

4*V,R0AV,.tP65 


004636 


JSR 

R5,* CR6) + 


01^700 

1 77574 


MOV 

DKrR0 

JGET TMF ODP 

012705 


M 0 V 

*RKPSfR5 


1 77400 
012501 


MOV 

CR5)+,R1 

ISAVE RKDS ANO RKFR FOR LATFR 

012502 


MOV 

CR55*,R2 


011504 


MOV 

•P5,R4 

ISAVE RKCS 

1 00405 



OKERP 

lYES «- RRANCH 

032704 


BIT 

*ie,R4 

|WAS LAST FCN A CRIVF RFSFT? 

000010 

001004 


BM6 

O'-^ERZO 

JVES • rramch 

0 0 0 1 7 .0 

DxXTTj 

JWP 

«i 4 (R05 

I FXTT 


0 00 014 
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CV.CKM f^ACPO VPfe?4«l4 13"SEP»72 02l*?2 PAGF f? 


1 


IFRROP 

PROCESSORS 


2 020232 

0043(514 

D'KERPl 

A St. 

R4 

;MAPD error? 

3 020234 

100440 


BMI 

OKHF R 

SYES • BRANCH 

4 02023'^ 

006127 

DKEP00I 

ROL 

(PC1 + 

STRTEO B TT^ES? 

S 020240 

000000 

DKREPTJ 

.WORD 

0 


e 020242 

103027 


BCC 

DKER25 

STF MOT TPV SOMF MORE 

7 020244 

052760 

1 00000 
000012 

DKER10I 

BTS 

#1 02000, 12(R05 

SSET FAILURE FLAG 

8 020252 

005737 

1 77406 


TST 

• ARKUtC 

?nas WCRD COU^'T reached 0? 

S 020256 

001 763 


BPQ 

DKXTT 

SYES • r,C EXIT 

10 20260 

010246 

0KER15! 

MOV 

R2,^CR6) 

lOLiTPUT RKER 

11 20262 

012746 

001427 


MOV 

#1427, «fR6) 

*ANO F227 

12 20266 

1 32760 
000007 
00001.3 


B!T9 

#7,13fR0) 

sTS THIS UNIT 0? 

l3 20274 

001005 


B^‘E 

DKIP20 

|K‘0 * ePAK’CH 

14 20276 

032767 

010000 

1 77476 


BTT 

#SDPVP fOKFLOS 

fSYSTFH DRIVER? 

15 20304 

001401 


BEQ 

OKEP20 

SK'O BPAK'CN 

16 20306 

00501 6 


CLR 

6P6 

fSET CCOE TO HALT 

17 20310 

005067 

177464 

DKER20I 

CLR 

OK 

fFRFE DRIVER 

18 20314 

000004 


TOT 


lOUTPLT message 

i§ 20316 

012667 

1 77456 


MOV 

(Pel +,OK 

ITF COMP rack reset FLAG 

20 20322 

004767 

1 77516 

DKER251 

JSR 

PO ,OKRTRY 

fPE^IMT TER 

21 20326 

013705 

000042 

f3KEP30! 

MOV 

•#V,XTT,R5 


22 20332 

000165 

000004 


jwp 

4 rR5) 
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CV,r.KM MACPC vr04«i4 pagp 6 


1 e?e336 

p 1 ? 7 1 5 

f* ./» f» 0 f? 1 

DKNPRi 

MP V 

,«R5 

JflFAR THF COKTRCL 

2 00034? 

1 05715 

DKHR00 : 

TSTR 

1»R5 

IPONE YFT? 

2 000244 

1 i ' r* 3 7 6 


RPL 


>K0 LOOP 

4 000346 

P3P7^1 


HIT 

4*200 ,R1 

ITS IT nPTVr KOT ready 

5 00035? 

P 0 1 4 1 6 


HFQ 

D S< R P Y 

ITF YFS 1 A0a? 

fi 000354 

n‘377':" 1 

P 0 1 0 P 0 


HIT 

^ 1 0 p 0 , R 1 

ITS IT SEPK IK'COYPLFTF? 

7 0 0 0 3 6 ra 

p CH 4 05 


HFQ 

DKHR0fi 

»N*0 - BRAN^CH 

fi 00036? 

PIP 165 
P070P4 


HPV 

R1 .4 CR51 

IPEPLACF rPTVF 4f 

S 000366 

P1,?71 5 
PC3P1<5 


MOV 

411 i5,aR5 

ISFT IF FHR DRIVE RESET 

10 0037? 

P00755 


HR 

0YER3P 

pTAKE IK'TFRTM EXIT 

11 00374 

p 1 1 4 0 0 

DKHR05S 

RTT 

^1 140P,R2 

lOAK^ i*E PPSSIPLY PO 0^!? 

1? 00400 

P01 3i 6 


B’^F 

DKeR0p 

fYES • PRAMOH 

13 0040? 

P3?7P2 


HH 

^?00 -?P ,R2 

?TS IT WRTTF LOCK CUT? 

14 00406 

P 0 1 7 ? 4 


HFQ 

DYFRJS 

- BRAK'CM 

15 00410 

PIP046 

DXRnYf 

Hnv 

R0»'CR65 

ISAVF RIISY FLAG 

16 0041? 

P 1 6 7 4 6 

1 77376 


MOV 

D''<'N AM , « CR6 ) 

IPIJTPL.T KAMF 

17 00416 

P 1 2746 

P 0 P 4 P 2 


MOV 

<<40? , - (R61 

|AND A002 

18 0042? 

19 

P 3 p 7 3 2 

P l/? P 0 P 1 1 

1 

HR 

,FNP 

nKER?^ 

tl,\ i GO PPU'T 
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CV.TKM 

MACRO VC 04 

-14 13-SP:p-72 

02JF2 PAGF P+ 



SYMPOL 

taplf 





CK 


0*<ERP 


OKER00 

000P36R 

CKFKI?^ 

0?*0244R, 

DKFR16 

0!’0?^0R 

DYERRg 

0003 1 0R 

CKF,P26 

00032PR 

DKER30 

400326R 

OWFLGS 

000002R 

ckhfr 

0P033AR 

OKHR00 

000342R 

rKHR0?, 

000374R 

ckim 

0 0 0 1 7 ? R 

0 K I N 1 0 

070 1 06R 

DKIM20 

0001 16R 

C K N A M 

0 0 1 d R 

OKRnv 

0074 10R 

rKRFPT 

0(70240R 

CKRTRY 

0 !? 0 w 4 4 R 

okstrt 

0.0g040R 

DKXfT 

000226R 

FT 

s5:0ff0!:>07 

PR X 

1 7777A 

PWBA a 

1774 10 

RKCS 

s 177 4 04 

HKDA X 

177412 

RKDTR * 

0 0 0 0 0 1 

RKD? 

« 177400 

RKER X 

177402 

RKWC B 

177406 

R0 

B^0t;'0000 

R1 XU000001 

R2 Bine 00 00? 

R3 

*^000003 

R4 X 

lJ00g004 

P5 * 

1^000005 

R6 

8^0(^000^ 

SCRVR s 

010000 

v’.RSAVt 

000044 

V .XTT 

B B0074R 





i A P S 

0 pi 0 (? 0 0 

000 





0 P 0 4 ? 4 

001 




ERRTPS 

n^TEr TFo ? 

0 




FREE CORE! 1^347. 
,LPf<DTiDK 

WORDS 
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5 . V001A Program Listing 


000|i!0(?l 

000002 

000004 

000005 

000005 

000007 

000010 

000011 

000012 

000013 

000014 

000016 

000020 

000022 

000024 

000026 

0000^0 

000032 

000034 

000036 

000040 

000044 

0000S0 


.TITLE OK 


I 


000 V* 00 R0i%0 
00000 1. ^\*%\ 

@00002 «2*X2 
000003 R3*%3 
000004 R4»X4 
000V503 R5«X5 
000006 R6»X5 
@@0007 PCSX7 
177400 kKOS*l77400 
1774v^2 RKERS177402 
177404 RKCSil77404 
177400 RkWC« 177406 
177410 RK^^Asl774l0 
177412 RK0A«177412 
000001 RKDlRil 
000044 V,RSAV944 
000042 V,XIT»42 
177776 PS*177776 


;0I8K DRIVER fRKll) VERSION V005A 
001 

;C0PYRI5HT nlGlTAL EQUIPMENT CORPORATION 
IMAVNARO^ MASSACHUSETTS October 1971 


,5L0BL OK 

ISTANOARD DOS INTERFACE TABLE 


000000 

DK 1 

.«ord 

0 

102037 


.word 

102037 



• BVTE 

20 

172 


.BYTE 

OKINT^OK 

240 


.BYTE 

240 

00 0 


.BYTE 

0 

040 


.BYTE 

dkstrt*di< 

000 


.BYTE 

0 

000 


.BYTE 

0 

000 


.BYTE 

0 

015270 

Dknami 

.RAO50 

/OK/ 

000001 


.mORD 

RKOIH 

0M0000 

tA ^ a lA ^ 


.«(ORD 

0f0.0y0)r0|l 

000000 




000000 




000000 





000000 
0000 0 4 
000003 


011767 

000174 

DkSTRTi 

MOV 

•PCyOKREPT 

116001 

000013 

DkRTRYI 

MOVB 

13(R0) f Rl 

@42701 


BIC 

AI177770,R1 

177773 


, TFDF 

MlJtFU 



.ifndf 

LOWOEN 



MQV 

R1 rR4 


.ENdC 

.£NOC 


10 IF IDLE# DOB PTR OTHERWISE 
IFACILITES WORD 

ISTO buffer SIZE IS 258, WORDS 
lOFFSET To INTERRUPT HANDLER 
^PRIORITY LEVEL 5 
INO OPEN routine 
lOFFSET TO TRANSFER HANDLER 
INO CLOSE ROUTINE 
INO SPECIAL FUNCTIONS 
ICURRENTLY unused 

idevice Name 
IFIRST mFO block 
I0IT HAP pointers 


ICLEAR RETRY INDICATOR 
IGET UNIT IN R1C13-15) 


ISAVE UNIT FOR later USE 
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0^00^4 

006201 

ASSs 

R1 

iueft-justify unit 

000056 

00600 i 

ROR 

R1 


000060 

006001 

ROR 

R1 


000062 

006001 

ROR 

R i 

?UNIt NO^ A$ uESlRED 

000064 

02?>020 

CMP 

iRid)*. CR03 + 

IPOINTEP DOB+BLOCK 

000066 

012002 

MOV 

CR05+fR2 




• IFDP 

MIXED 




.IFNOF 

lowoEn 




MOV 

CPC1+,R3 

?GET density PATTERN 



u» n Q ft 
§ 4 W ft u 

CONFiS 




ASL 

R3 

imove apfrop, to unit 



Dec 

R4 




Boe 

,-4 




BCC 

,*4 

iiF LOW Density ... 



ASU 

R2 

tadjust Block no. 



• SNOC 





.EROC 





• IFDF 

LOwdEn 




ASL 

R2 




.EnoC 




0000T0 

020227 

011300 


CMP 

R2,**4fi00, 

IIS BLOCK WITHIN BOUNDS? 

000074 

103410 


BLO 

OKIN20 

I YES -• branch 

000076 

0i4$J46 


MOV 

.CR05 ,"(^^63 

lOUTPUT Illegal block number 

000100 

012746 

001435 


MOV 

#l435,tifR63 

lANO F035 

000104 

000470 


BR 

OKtR20 

1 ... after sysdv chk 

000106 

060201 

OK1N10I 

AOO 

R2,R1 

IAOO in valid QUOTIENT 

000110 

000U2 

000114 

006202 

006202 

060402 


ASR 

ASR 

AOD 

R2 

R2 

R4.r2 

lAOj REMAINDER FOR OIV BY 12 

000116 

000120 

010204 

042704 

177760 

DKIN20I 

MOV 

SIC 

Ra,R4 

N177760,R4 

lOlViDE By 16 • SAVE REMAINDER 

000124 

040402 


0IC 

R4, R2 

lEXTRACT QUOTIENT 

000126 

001367 


BNE 

OKIN10 

I,,, IF any BUILD RESULT 

000130 

020427 

000014 


CMP 

R4,i#l2, 

icheck remainder 

000134 

002402 


blt 

,★6 

IIF between 12 ft 15 

000136 

062/04 

000004 


AOO 

«4f R4 

1... CAUSE surface INCR, 

0001^2 

000144 

060401 

012704 

177412 


AOO 

MOV 

R4,R1 

NRKDA, R4 

IPUT sector into rest 

000150 

010114 


MOV 

Rl .PR4 

ISET UP DISK ADDRESS 

000152 

012044 


MOV 

CR03^,-CR43 

ISET UP memory address 

000154 

012044 


MOV 

CR0)*,-(R4) 

ISET UP WORD COUNT 

000156 

012001 


MOV 

CR03*,Rl 

|PUT IN The Function 

000160 

151701 


Bisa 

PPCfRl 

ISET I.D.E, and 60 bits 

000162 

042701 

177460 


BIC 

#177460, Rl 

ICLEAR garbage «♦*«**•• 

000166 

000170 

010144 

000207 

t 

MOV 

RTS 

««*#**« 

Rif*CR43 

PC 

USED AS LITERAL 

iseno function to control 

BY THE PREVIOUS INSTRUCTION 
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.31091 S,RSAV,S,Xn 

r 

f Interrupt processor 




OkInTi 

.IFDF 

svsdv 





J$R 

rs.s.rsav 

ssAve registers 




,ENOC 

.IFNDF 

SYSDV 


000172 

013746 

000044 

004536 



PPV,RSAV.-(R61 


000176 


JSR 

,£NDC 

RS,4CR6)* 



000200 

016700 

177574 


HOV 

OK.RiS 

IGET THE ODB 

000204 

012705 

177400 


HOV 

«RKD5.R5 


000210 

012501 


MOV 

CH55+.Ri 

SSAVE RKOS and RKER FOR UATER 

000212 

012502 


MOV 

CR5)+,R2 


000214 

011504 


MOV 

PR 5 .R 4 

SSAVE RKCS 

000216 

1 00405 


BMI 

OKERF 

IYES • BRANCH 

000220 

032704 

000010 


6IT 

tfl0,R4 

IWAS last fcn a drive reset? 

000224 

001004 


BNE 

OKER00 

syes - branch 

000226 

000170 

000014 

DKXITI 

JMP 

P14(H0) 

rexiT 



TERROR 

PROCESSORS 


000232 

00»530 4 

OkERPi 

ASU 

R4 

shard error? 

000234 

100425 


SMI 

dkher 

SVES • BRANCH 

000236 

006127 

UKER00I 

ROU 

(RC)^ 

STRlED 8 TIMES? 

000240 

000000 

okrepti 

. «»inRD 

0 


0002«2 

103014 


8CC 

Di<ER25 

fif NOT try some more 

000244 

052/60 

1 00000 
000012 

dkErizi 

91 S 

#100000, 12(R05 

>SET FAILURE FLAG 

0002 S 2 

005737 

177405 


TST 

PttRKi^c 

IHAS HORD count reached 0? 

000236 

001763 


BE« 

DKXIT 

SYES ^ SO EXIT 

000260 

010246 

okErisi 

MOV 

R2,- CR6) 

lOUTPUT RkER 

000262 

012/46 

001427 


MOV 

#1427, •(R6) 

sand F027 




.IFOF 

SYSDV 





BITS 

#7, l3CR0) 

SHAS THIS UNIT 0? 




9NE 

OKER20 

iNO » branch 




CLR 

.ENOC 

PR6 




okEr20: 

.IFOF 

SYSOV 





CLR 
• EMOC 

DR 

SCLEAR busy FlAS 

000266 

000004 


lOT 


SOUTPUT message 

000270 

012667 

177504 


MOV 

(R6)t, DK 

SIF COME BACK RESET FLAS 

000274 

004767 

OkER2SI 

JSR 

pc,orrtry 

fRimlSlT TFR 


177544 

DKER30J 

.IFOF 

SYSDV 





JMP 

S.XiTtA 

s... s take interim exit 




.ENOC 

.IFNDF 

SYSDV 


000300 

013705 

000042 


MOV 

f#V,XlT,R5 


000304 

00^165 


JMP 

4CR53 



000004 






. E^iOC 
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000310 

01271S 

n ra M ri 1 

dkheri 

MOV 

#U#R5 

[CLEAR the control 

0003U 

^ r.' til" VT* 4 

105713 

DK»iR00J 

TST9 

$R5 

lOONE yet? 

000316 

100376 


BPL 

DKHR00 

[NO • LOOP 

000320 

032701 

001000 


an 

R1090,R1 

[IS IT SEEK incomplete? 

000324 

00140S 


BEQ 

OKHR 05 

[NO * branch 

000326 

01016S 

(2 Gi iA^A tH A 


HQV 

RIHCRS) 

[REPLACE drive # 

000332 

^ W ^ iJ |/? w 

012715 
0001 15 


MOV 

ftU5»#R5 

[SET UP For drive resit 

000336 

000760 


6R 

DKeR30 

[TAKE interim EXIT 

00034(« 

0327512 

011400 

OKHR05I 

BIT 

#11400, R2 

[CAN RE Possibly go on? 

000344 

001334 


BNE 

DKER00 

[YES » branch 

00034$ 

032702 

020000 


BIT 

#20000, R2 

[IS IT rRiTE lock out? 

0003S2 

001742 


BEQ 

DKER15 

[NO • branch 

0003S4 

010046 


MOV 

R0,*CR65 

[SAVE BUSY FLAG 

0003S6 

01674$ 

177432 


MOV 

DKNAM,»CR6) 

[OUTPUT Name 

000362 

012746 

000402 


MQV 

#402,«(R6) 

[AND A002 

000366 

000737 


BR 

OKER20 

[,t. s GO Print 


00000 1 


.SMO 



000000 

ERROWS 






OK 

0000 00RG 

DKERP 

000232R 

DKER00 

000236R 

OKERta 

000244R 

OKERIS 

000260R 

OKER20 

000266R 

0KeR2S 

000274R 

DKeR30 

000300R 

dkher 

000310R 

DKHR00 

000314fi 

DKHR05 

000340R 

dkint 

0^»l72R 

OKIN10 

0001w$R 

DKIN20 

000} 16R 

OKNAM 

000014R 

DKREPT 

000240R 

dkrtry 

000044K 

okstrt 

0a0040R 

DKKIT 

000226R 

PC 

PX000007 

PS 

• 177776 

RKBA 

« 177410 

RKCS 

s 177404 

rkda 

■ 177412 

RKOlR 

■ 00 0 0 3 1 

RKOS 

• 177400 

RKER 

B 177402 

RKwC 

« 177406 

R0" 

iX0-30g00 

R1 

BX000001 

R2 

•X000002 

R3 

»X000003 

R4 

BX000004 

R5 

•X000005 

R6 

■X008006 

S.RSAV 

i **♦*♦# G 

S.XIT 

• 

« g 

■ 000370R 

V.RSAV 

B 000044 

V.XIT 

B 000042 
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DRIVER for TCll DECtape Control 


The principal function of the TCll Driver is to transfer data between 
the hardware control and a memory area specified by a calling Monitor 
routine on behalf of a user program. The number of words transferred, 
the DECtape transport, the absolute starting block on the tape, and 

CLXiTcCuXOii O j. L^apc: uPcivcx xxi cscxCxi Oa,^^ axe: axx u.*;; udTiLixxicsu. Dy 

calling routine. 


As required by the standard Monitor-driver interface for all de- 
vices and, as DECtape will be handled as such, for file-structured 
devices in particular, the first part of the driver consists of 
two consecutive tables; 


a) Table of descriptors and pointers to routines included. 

b) File-structured usage data 

All data transfers utilize the normal read/write capability of 
the PDP-11 NPR facility. The driver contains a setup sequence to 
initiate a search for the requisite start block and routines then to 
handle interrupts for continuation of such search and, if this is 
successful, the subsequent data transfer specified. 

As a file-structured device, the opening and closing of files 
are the responsibility of the Monitor file management routines. There 
are therefore no OPEN or CLOSE routines. 


Also, no routine to handle SPECIAL FUNCTIONS is currently pro- 
vided. This could be added later if it is found desirable to simulate 
the normal operation of some similar device, e.g., rewind as for Mag- 
netic Tape. 

1. Initial Tables 


Relevant entries for this driver are as follows: 


WORD 0 : = 0 initially-set to address of DDE for dataset being ser- 

viced when busy, by calling routine. 

WORD 1: = Facility Pattern = 140037 signifying: 

a) File-structured Device 

b) DECtape (or similar reversible medium) 
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WORD 2 : = 

WORD 3 : = 

WORD 4 ; = 

WORD 5 : = 

WORD 6 : = 

WORD 7 : = 

WORDS 10-17: 


c) Capable of Input or Output in either ASCII or Binary 
on more than one dataset at a time. 

a) Standard Buffer Size = 16 X 16-word units (i.e., 1 
standard DECtape block) . 

b) Offset to Interrupt Service routine. 

a) Priority for Interrupt Service = 7 

b) 0 [No OPEN routine included] 

a) Offset to TRANSFER Set-up routine 

b) 0 [No CLOSE routine included] 

0 [No SPEC FUNC routine present] 

Name 'DT' in RADIX 50 format. 

Start Block of Directory Structure = 100 

= Reserved for pointers to in-core Bit Maps for each of 
8 transports supportable by TCll. 


2 . Processing Routines 
2.1 Transfer Setup 

A Monitor routine effectively calls for transfer setup by JSR PC XXXX 
where XXXX is the start address evaluated, from the offset in WORD 4 of 
the table. The address of the DDB containing relevant parameters will 
be stored in WORD 0 of the table. 

The setup routine will first set a counter for number of re- 
turns to be made in the event of parity or timing failures in tape 
operations (8-9). Using the given DDB address, it then extracts the 
following information and actions it as shown: 


(i) Block No. (DDB+4) - two copies are stored internally as con- 

trols during Start Block search as detailed below. 

(ii) Word Count & Memory Address (DDB+6 & 10) - these are stored 

immediately in the TCll WC & BA registers for use 
as soon as the Start Block has been found. 

(iii) Function (DDB+12) - the requirement for Read or Write is con- 

verted from the standard Monitor specification (4 
or 2) into the corresponding DECtape value (4 or 
14) and stored internally until completion of block 
search. 

(iv) Tape Unit & Motion (DDB+13) . The bits showing these are as- 

sociated with the DECtape Search function [3] and 
are set into the TCll Control Register to initiate 
the search for the start block. 
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The setup routines also sets two switches appropriately: 


a) In any transfer, two types of interrupt may occur; the 
first at each block encountered during the search for 
the start specified; the second thereafter arising when 
the transfer has been completed. The switch is initial- 
ly set for the first type. 

b) The tape is started in the eventual transfer direction. 
Turn-around, however, m.ay be necessary if the tape is 
badly positioned. The second switch is set initially 
to reflect the start direction in order to provide ade- 
quate control during such turn-around. 

The driver then sets the TCll Control Register for the search, and 
restores control to the calling Monitor routine, via RTS PC, to await 
its first interrupt. 

As permitted by the General Driver Spec, the setup routine makes 
full use of the processor registers, without saving or restoring their 
original content. 

2 . 2 Interrupt Servicing - Search Mode 

Provided that a tape block-mark is encountered without error, the 
search interrupt servicing routine compares the number found (from 
TCll Data Register) with one copy of that for the required block, 
stored internally by SETUP. If the comparison shows that current tape- 
motion will eventually lead to the required block, the routine exits 
immediately and waits for a subsequent interrupt to show that the 
transfer may begin. 

If tape-motion is in the wrong direction, the routine resets the 
TCll Control register to produce tape turn-around on exit. A second 
turn-around will now be essential for a transfer in the require direc- 
tion. The routine therefore modifies, appropriately, by 2 the copy of 
the block number required used in the comparison. This factor is pro- 
vided so the tape is sufficiently positioned beyond the block required 
to ensure that it will be up to speed at the right point after the sec- 
ond turn. For example, in order to transfer Block 100 forward, the 
first turn will seek Block 76 in reverse. 

An equal comparison might then result after a single turn-around. 
The block number found is, therefore, checked against the second, un- 
modified, stored value. If not equal, a turn-around has occurred: the 
TCll is reset for the second time and the first stored number is re- 
stored to its original value. When both stored values and the block 
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found are all equal, the correct tape travel is assumed and the trans 
fer is effected by moving the stored function into the TCll control 
(byte only to avoid hardware delay imposition) . The interrupt switch 
is changed to show that the operation is now in Transfer Mode. 

In the event of an error in Search Mode, the TCll Test Register 
is examined. If this shows that the cause is "End Zone Reached", the 
turn-around procedure is again effected, since such a condition is 
initially the same as being, for example, at Block 102 when 100 is 
wanted forwards. All other hardware-reported errors are treated as 
discussed in a subsequent paragraph. 

Another type of error may occur but this can only be detected by 
software, i.e., a failure to find the block either because its number 
on the tape is corrupted or the one required is outside the range of 
the tape. For both situations the tape might rock endlessly owing to 
the turn-around algorithm. The search interrupt processor therefore 
counts the nximber of times a turn is effected. It gives up at the 
sixth attempt and requests printing of an Fjafl6 message with the fail- 
ing Block Number as evidence. 

To avoid unnecessary time wastage in the storage and retrieval 
of their contents, - the normal search interrupt processing does not 
use processor registers. 

2 . 3 Interrupt Servicing - Transfer Mode 

The normal cause of an interrupt in transfer mode is the satisfactory 
completion of the whole of the data transfer specified. The driver 
must then recall the monitor routine which requested the transfer. 
Because this routine may have surrendered control to the user program 
during the period of the search and transfer operations, the driver 
must assume such is the case and save all register contents before 
setting R)2f to the DDB address from its WORD 0 and taking the completion 
return set into DDB+14. 

The interrupt may also occur if an error is determined by examina- 
tion of the TCll Test Register. In Transfer Mode, two types of errors 
specifically processed are Party or Timing Failure. Following either 
of these, the servicing routine restarts the whole process over from 
the original block search until at least 8 attempts to produce a satis- 
factory transfer have been made. If these all fail, the routine re- 
turns a flag indicating the error in Bit 15 of the relevant DDBtl2. 


4 



It checks, however, whether the failure occurred at an intermediate 
block of a transfer involving several blocks. If such is the case, it 
endeavors to provide a satisfactory transfer of the remaining blocks. 
It then recalls the monitor at the completion return address. 


Of the other types of error, transfer mode servicing also handles 
Non-existent Memory and End Zone. Both of these conditions are assumed 
to be the result of a programming error and cause printing of a fatal 
error message Fj?15 with User Call Address as evidence. 


2 . 4 Recoverable Errors 

In both Search and Transfer modes, for errors not especially noted, a 
general routine is used to request printing of a diagnostic message 
requesting operator action. SEL and ILO errors are assumed to indicate 
a "Device Not Ready" state for which the device name (DT) is support- 
ing evidence for the message 'Aj2f^2'. For the rest, and Mark Track 
Errors in particular, which might be resolved by changing tapes — the 
message 'A003' is printed with the TCll Test Register content as 
evidence. For all these errors, the operator might request program 
resumption by a Monitor "Continue" command. The driver restarts the 
whole search and transfer process if this occurs. 


3 . Implementation 

a. Comments on the driver listing show general methods of imple- 
mentation. It should be noted, however, that in several in- 
stances, in-line code is modified. In particular, the two 
switches mentioned under "Setup" are variable Branch Instruc- 
tions and the internal storage of data has already been in- 
dicated. This means first that the driver is not reentrant - 
an unlikely requirement when one control may only service the 
transport at a time, even though eight may be attached to it. 
In the second place, the driver, as written is not immediately 
usable in a ROM. 

b. The priority level for interrupt servicing should also be 
mentioned. The hardware level is 6; the initial software 
level, however, is set at 7. This is to ensure that there 
will be no delay due to any other interrupt in the critical 
case in which the required block number has been found and a 
change of function from Search to Read or Write must occur 
within 400 msecs. The interrupt routines themselves lower 
the level to 6, if the critical case is not being actioned. 
This will mean that other interrupts may be delayed up to 

50 msecs, in the worst case, the critical one, 

c. A further minor point of interest is that the tape is always 
stopped at the end of each transfer (or when an error occurs 
to prevent this) in order to maintain correct tape position- 
ing. A program STOP request is issued to effect this in all 
cases, even though the hardware may be set up to provide for 
it. However, resetting the TCll Status Register for this 
purpose can remove error conditions. The content of this 
register is, therefore, examined (or is saved for later 
examination) before the STOP command is given. 
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4. PROGRAM LISTINGS 


4.1 V02 Program Listing 

ICOPYKiGHT 1971, DlblTAU EQUlPMtNT CURP,» MAYNARD, MASS, 

IVtKSlUN NUMtttHi V42 

,TJiTl-fc UV.QT 
t 

.wtObU OT 

;DECTAPt: uHiVtR VERSIQN I 23 JULY 78J 

; PRLStNTtY LQNTAINS ONLY ROUTINE PQR TRANSFER 

I 

/STANUARU URiVfcR TAt^Lt; 


DT* 

, wURU 

V) 

?bUSY flag (DOa ADDR WHEN BUSY) 


, b Y T t 

37f 3U0 

JFACiLlTY indicator 


• SYTE 

16. 

fSTO BUFF SIZE716. 


• SYTt 

0T,XNT«UT 

?pciinter to int svce 


,tiYTt 

34U 

?INT SVCE priority 


tOYTE 

U 

;oespatcm table ,,,, 


.bYTE 

ut.tfh^ut 

?...^’OR transfer ONLY! 


.bYTE 

0 



. b Y 1 E 

0 



• bYTE 

d 

JSPAHE 

DT.NAM* 

.PADS0 

»or » 



» isQRU 

OT.DIR 

?FIxEd mFo block 


, >nOHU 

la , 14 , 1(9 , ^ , (a , 0 , 0 , 0 

;PUINTEH3 for bit map access 

iREGiSTtR assignments? 


Rk3»>SU 




R1»%1 




R23)(2 




R 3 > ‘4 S 




R4sX4 




Rb»X5 




SPx%C> 




PC»X7 




;stT UP 

f kanSFER 

! S 


ot.tfr* 

fiuv 

PPL,UT,KTC 

;set retry count 

OT.PRl I 

MOV 

OT»H0 

?GET address of DDB ,,, 


MOV 

«Dl.CbA,Rl 

& OF HWR BLOCK 


LL« 

9R1 



CHp 

CRU)*, (R03» 

;SMP user line in DDB 


MOV 

CRiJJ^iUT.BRQ 

?SAVE block no for later 


MOV 

CR0)+,^N1 

?SET READY MEMORY AQDR 


MOV 

(Rtfl-Yi'CSn 

& WORD count 

dt,pk2 : 

LLRb 

UT.INT 

?SET INT'RUPT Sw, to SRCH 


MOV 

OT«»PUiuT,bCK 

JSET BLK CTRL FOR SRCH 


MOV 

K3 

lUSEU IN NEXT sequence 


MOV 

R3»UT.TAC 

?StT TURN around COUNT 


Mu V 

^RUf-CSP) 

?get unit, direction & fund 


OIL 

#170341, A*SF 

iclear puss, garbage 


biS 

R3f «“SP 

?A,OD IN INT ENB bit 


blTB 

#SP,6PC 

fWRIlE RtQD? 


bEU 

,+6 

; CKEAO O.K, AlROY) ***♦♦ 


AUU 

«l2,PSP 

;iF So GET DECTAPE EQUlVt 


MOVb 

#SP, U1 ,FRQ 

^SAVt FUNC FUR later 


MOVB 

6PL,P5P 

preset FUNC TO SRCH CINT ENB) 


ASL 

R3 

,’CNOW CONTAINS 2003***** 


blT 

#SP,#400C 

^travel forward? 


bNE 

.♦# 



XNL 

R3 

IIF So RS NOW 201 50 


ligVB 

R3» DT ,SSH 

;MAK1nG bPL OR 0MI AS REQD 


MOV 

CSP)^f-(Rn 

?SET UEClAPt control 


K T S 

PC 

;RETURN to caller FOR NUW 


CAkE used as UiTERAL bY 

PREVIOUS iNSTRuCTIONi U 
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lINTfcRKUKT SfcRVlQE CAJ - SfcAKCh IN pKOREi»SS 


OT.sip* rai 

4»#0TtCCM 

TCHECK status 

BMi 

DT.StK 

;iP tRROK GO INVESTIGATE 

tMP 

f»UT,COT» OT.BKQ 

;CM£CK BLOCK FOUND 

&ty 

OT*bFU 

;IF une keqd, go action 

DHl 

QT.5XT 

JGET TO bLOCK THIS wAY? 

DTtSSW*,-! 


? CBPL IF TRAVEL BACKKAROJ 

DT.TAi; SiUfe 

, ^#177776 

?oRoP priority 

ASRb 

«0 

;mow many turns? 

DT.TAC’.’*2 

OC.S 

0T*B6:K 

JIF 0 CAHIT find block 

MOV 

i*4O00,»iC5P) 

lOTHtRRiSE MUST TURN AROUNQ 

Hgv 

» » tSP) 

MssuME travel now FWO 

U na r-i 

t \ V o C ui 

W ( t 

tchelk direction 

bgs 

0T.TA2 

?|F FwO UMIT next 

NtCj 

2CJ>P) 

?IF BkD, reverse EVERYTHINU 

Nfcg 

#5P 


0T,TA2S 5Ub 

CSP3-^?UT,BKQ 

JALLUw 2 BLKS FOR 2ND TURN 

ADD 

(SP3 + ,<»#DT,CCM 

;3WITCH status 

RUL6 

QT^SSk 

/REStT DlR 5W CC BIT REVERSES) 

DT.SXT* INCH 

«»*»OTtCCM 

fCONllNUt search 

RTi 


JrtAlT NEXT block 

;buqck fuund * 

CHECK TRAVEL COKKECTi 

DTtaFD? CMP 


, ’TRAVEL AS originally STORED? 

OTf dKQS,»A 

OT.bCKs.^si 

BNt 

UT.TAJ 

iiF NOT Must turn again 

incb 

0T»1NT 

, ’RESET iNTfRUPl SW FOR TFR 

MQVB 

#0##*jUT,CCM 

IMOVE IN CORRECT FUNC 

DTtFRQ».»4 

OP 

OT,SXT 

?,,, S GU SET underway 

IINTERKUPT StRVICE C^J TKANSFtP COMPCfclfc C‘0 S 

DT.INT* bH 

t A 2 

,’INTtRRuRT SWITCH 

OK 

OT.SIP 

IFOR SRCM COMES HEREi 

0 1 Cb 

t»40,PAl77775 

?DKOP PRiURlTV 

MU V 

4»*tV,KSAV,*CSP) 

#QN transfer complete ,-t 

vJ5K 

P5##C3P)+ 

JoAVE USER REGISTERS 

MOV 

OT/H0 

fGET DOB AOOR 

MUV 

»dt,ccm,ki 

JGET STATUS AOOR 

MOV 

R3 

;SET MAGIC CONSTANT 

1S1 


JERRUR CAUSE INT’RUPT? 

OMi 

OTiTtR 

IIF SO GO & see WHY 

MOVB 

R3»^Rl 

^OTHERWISE STOP TAPE ••• 

DT,TXT? MOV 

l4tR0) »PC 

?,,, & take complete retn 

ISEaRCM tKRoK 

• OETERMiNE CAUSt 

• 

UT.SfcP* TST 

#*»0T. T3T 

;IN END 20NE? 

D«i 

OTtTAl 

?o,K, means Turn around 

OlCb 

i»40, P«177776 

;UR0P PRIORITY 

MOV 

^«V,K3AV,»CSP) 

ISAVE ACL USER REGS. 

J3K 

R5»f C3P)+ 


MOV 

»DT,T5T ,K1 

IGET OECTAPfc status 

OT.tXT* MOV 

«»Ri i’' tSP) 

fSET UP TO TEuL USER 

MOV 

«DT,iHE,-(5P3 


01 T 

<>14000, CRIJ ♦ 

ASSUMING H^W FAICURE 

oto 

0T,5TP 

N,,t IF SEL OR ILU 

MOV 

40 1 ,NKE,43P 

JOIAUnOSE TAPE FAULT OIFF, 

MOV 

0TtNAM,2(SP) 

AS NOT READY 

OT.STP* MUVo 

410, PKl 

ISTQP TAPE IN CASE 

iUT 


?G0 10 OlAG PRINT 

OT.Ra [ i JoK 

KC^UT.PKI 

TON kecovery# set up retry 

MOV 

?4V,RRE3» RO 

;RESlORt USER REGS 

JSK 

Kb# 


KTl 


#.•, & HOPE FOR BETTER THINGS! 

fOCOCK NOT POUND IN btAKCH; 


DTiOtp; MOV 

OT.BCK#^lSP) 

,'&IVE BLOCK NO, AS EVIDENCE 

iiuv 

40T,BKE,-CSP3 


MOV 

«D r,CCM,Rl 

?GET CONTROL ADDRESS 

OK 

UTtSTP 

•7 
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JTRANSrfcH tRHOK* 


DT.TtRS olT 

434oBB,"tRn 

ONE 

ot.ext 

BIT 

CRn + 

BNt 

OT.FEH 

?RECUVERABLt 

errors ctiming or 

ASL 

W0 

0T.RIC»,-;^ 


BCC 

DT.RXT 

BIS 


HUVb 

R3» (RU* 

MOV 

KRl) rR2 

BEQ 

OT.TXT 

ADD 

R3IR0 

SUB 

CR»3^»R2 

Sn AB 

R2 

BITB 

R3» cRn + 

BtQ 

.♦A 

NtG 

«2 

add 

R2» QT.BRy 

CUH 

DTtRTC 

JSR 

PC»D r,PR2 

BH 

UTiRXT*4 

/fatal ERRORS 

^ End zone or non 

DT,FtK* flUV 

PRW,- tSP) 

MOV 

«Df ,FRE,-CSP5 

BR 

DT.5TP 


rTApt FAiUJHt/OPt«ATON FAUWT? 
MF PKINT & wait RteOVEWY 
JfcNO ZONt/N,E,H? 

;IF !>0 TREAT AS FATAU 
PAKITT) 5 

yWETRlEQ 8 -p 9 TlHtS ALWOY? 

>IF NOT TRY AGAIN •,,, 
yUTHtRWlSE SIGNAL, ERROR 
JSTOR TARE IN CASE 
?,,.»UT CHK ALL WORDS DONEi 
?IF So THAT’S iTi 
|60 (0 WURD count in UD 8 
& USE TO determine ... 
NO, OF BLOCKS DONE 
yCHECK PRESENT TRAVEL 
MOJUST NO, ACCORDINGLY 

^MODIFY search START BLOCK 

1.. , S retry COUNT 

;go set up new start 

1.. . & wait RE5ULT51 
EXISTENT HEHURYs 
?GIVE CALL AS EVIDENCE 
?PRINT DIAGNOSIS 


JMISCELLANEOUSDEFINITIUNSJ 

V,RSAV*44 

V,RRES»4S 

DT,OIR«ltiW 

DT,T5T«l^7S4ifl 

0T.CCH4l//S4i 

DT,Ct)A»l//,j4S 

0T,CDT51/?S3W 

0T,NRts402 

0T,IRE«4»J4 

0T,FRE«14ia 

DT,i3RE«l4lS 

ftND 
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4.2 V001A Program Listing 


A complete assembly listing of the driver follows. 

jCOPY??IRHT 1971, OIGITAL ESJIo^^FNT COPP., ^AY^APD, MASS, 




- C Q C T Akl 

1 y c, ^ o 1 w 

UUMSERs 

V 0 0 1 A 





•titee 

ot 




? 

.GLOBL 

or 




yOeCTAPE 

DRIVER 

VERSION 

1 23 JULY 70 



• 

9 

PRESE^'TL 

Y contains only 

routine for transfer 



Jstandapd driver 

TABLE; 


00i2000 

000000 

i)T: 

.WORD 

0 

;BUSY flag CDD8 ADDR WHEN BUSY) 


037 


.SYTE 

37,300 

JPACILITY INDICATOR 

000003 

300 





000004 

020 


.BYTE 

16. 

rSTD BUFF SIZE/16, 

000005 

310 


.BYTE 

ot.int.ot 

^POINTER TO INT SVCE 

000006 

340 


.BYTE 

340 

lINT SVCE PRIORITY 

000007 

000 


.BYTE 

0 

jDESPATCH table .... 

000010 

040 


.BYTE 

dt.tfr-ot 

?.,.FnR transfer ONLY! 

000011 

000 


.BYTE 

0 


■30001? 

000 


.BYTE 

0 


000’^ 13 

000 


.BYTE 

0 

ISPARE 

000014 

*^16040 

aT.NAM; 

,RAD5P 

t DT ' 


000016 

000100 


.WORD 

DT.DIR 

;FIXED MFD BLOCK 

00002'^ 

000000 


.WORD 

0,0, 0,0,0, -0,0,0 

rPOlNTERS FOR BIT MAP ACCESS 

000022 

000000 





000024 

000026 

000030 

000000 

000000 

000000 





000032 

000034 

000036 

000000 

000000 

000030 







jRERISTER ASSIG^^ 

MENTS S 



000000 

R0a%0 





000001 

R1»%1 





000032 

R2a%2 





? 0 0 0 0 3 

R3a%3 





303004 

300035 

300036 

303007 

R4 = %4 
R5*X5 
SP»%6 
PCa%7 






iSET UP 

transfer 

s 


000040 

311767 

300444 

DT,TFRI 

MOV 

9PC,DT,RTC 

;SET retry COUNT 

■000044 

316730 

or, PHI j 

MOV 

OT, P0 

;GET address OF DOS ,,, 


177730 





30005? 

312731 


MOV 

#QT,C8A,R1 

& OF HWR SLOCK 

000054 

177346 

305011 


CLR 

?R1 


000056 

32?020 


C IP 

CR0)+, CR0)+ 

JSKIP USER LINE IN DDB 

000060 

312067 

000202 


HOV 

(ROt/DT.PRQ 

jSAVE BLOCK NO FDR LATER 

000064 

012011 


MOV 

CR0)+,ffRl 

;SET READY MEMORY AODR ,,, 

^ A ^ 

312041 


M n u 
’ 1 / y 

(R0'f»— (Ri ) 

i . t • a> WORD COUNT 

300070 

105067 

300214 

0T,PR2: 

CLP3 

dt.int 

;SET INT'RUPT 3W, TO SRCH 

3007I74 

316767 

300166 

■300166 


MOV 

OT,PRO,DT.BCK 

jSET BLK CTRL FOR SRCH 

00010? 

312703 

300100 


M3V 

« 103,93 

;USED IN next sequence 
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310367 

m (A n 1 ifi f?k 


MOV 

R3,DT.TAC 

JSET TURN AROUND COUNT 

00011? 

A t f 1 1 ^ ]C 

011046 


MOV 

»R0,-CS'’) 

fGET UMIT, DIRECTION S, FUNC 

000114 

342716 

170341 


BIC 

A17034l,?SP 

ICLEAR POSS. GARBAGE 

000120 

050316 


BIS 

R3,«SP 

jADD IN INT ENB BIT 

00012? 

131617 


BITS 

PPC 

jWRITE redd? 

000124 

^^014 32 


6EQ 

, + 6 

jCREAD O.K, ALRDY)***** 

0001 2P 

362716 


AOO 

#12, PSP 

ylF SO GET DECTAPE EQUIV, 

00013? 

it* 1 fe 

111667 


M0V5 

#sp,ot,frg 

jSAVE fiinc for later 

000136 

1 11716 


HOVB 

POC.PSP 

JRESET FUNC TO SRCH (INT EN3) 

000140 

’*06333 


A3L 

R3 

jCNOW CONTAINS 203)***** 

00014? 

'^31627 

304030 


BIT 

#SP,#4000 

yTRAVEL FORWARD? 

000146 

301031 


B'JE 

.+4 


000150 

305203 


INC 

R3 

}IF SO R3 NOW 201 & SO ,,, 

00015? 

110367 


M0V8 

RlrDT.SSW 

^MAKING 8PL OR BHI AS REOD 


303023 





000156 

312641 


MOV 

(3P)+,-(Rl) 

rSET DECTAPE CONTROL 

000160 

303237 


RTS 

PC 

jRETURN TO CALLER FOR NOW 




CARE 

usEH AS literal by 

PREVIOUS INSTRUCTIONU I 



llMTtRRUPT RFRVTCE fA) - SEARCH 

IN PPORESS! 

00016? 

305737 

177342 

DT.SlPs 

T3T 

P#DT,CCM 

?CHECK STATUS 

000166 

103473 


8 11 

DT,SER 

JIF ERROR GO INVESTIGATE 

00017«' 

323767 


CMP 

P«DT,CDT,DT,8RQ 

f CHECK BLOCK FOUND 

000176 

177350 

303070 

301432 


BEQ 

3T,bFD 

iiF one reqd, go action 

000?0f^ 

103426 


831 

OT.SXT 

JGET TO BLOCK THIS WAY? 


303201 

JT,SSWs 

. " 1 


iCBPL TE TRAVEL BACKWARD) 

000?0? 

142737 

'Jt 0 3 0 4 0 

OT.TAI S 

HTCB 

#40, ##177776 

jDROP PRIORITY 


177776 





000210 

106227 

Pi CA P fA 


A3R0 

#0 

jHOW many turns? 


303212 

OT.TACs 

.-2 



000214 

103517 


oCS 

OT.BER 

jIE 6 CAN'T find BLOCK 

00021« 

312746 

30403(t 


MOV 

#4000, -(SP) 

jotherwise must turn around 

000222 

312746 

300032 


MOV 

#2,-CSp) 

j ASSUME TRAVEL NOW FWD 

000226 

106067 


RORB 

DT,SSW 

yCHECK DIRECTION 

00023? 

\777d7 

103433 


BCS 

DT,TA2 

jIF FWD OMIT NEXT 

000234 

305466 

P i>i f/‘ ‘71 ^ 


MEG 

2(SP) 

:IF BND, REVERSE EVERYTHING 

000240 

305416 


NEG 

PSP 


300242 

162667 

303020 

0T,TA2s 

S-JB 

CSP3+,DT,8R0 

lALLOW 2 BLKS FOR 2N0 TURN 

000246 

362637 

1 77342 


aod 

CSP)+,P#DT.CCM 

tSWITCH STATUS 

300252 

106167 

177723 


ROLB 

dt.ssw 

iRESET dir SW CC bit REVERSES) 

300256 

105237 

OT.SXT; 

INCH 

P#DT,CCM 

{CONTINUE SEARCH 


177342 





30026? 

300002 


RTI 


{WAIT NEXT BLOCK 
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JBUDCK 

FOUND - 

CHECK Travel corrects 

000??64 

322727 

000000 
f’l 0 000 0 

ilT.BFD: 

CMP 

#O,#0 

STRAVEL AS ORIGINALLY STORED? 


• S»’ !t.- ?-• Iw 

*« #>'. A ^ ^ (* 

0 T , B R Q s 

.-4 




■?B0270 

■DT.BCK = 

.-2 



000?7? 

001343 


BNE 

OT.TAl 

?IF NOT MUST TURN AGAIN 

000374 

135267 

000010 


INCB 

dt,int 

SRESET INT'RUPT SW FOR TFR 


112737 

000000 

177342 


MOVS 

#0, »#OT.CCM 

SMOVE IN CORRECT FUNC 


00?302 

OT.FRPa 

• •4 



000306 

300763 


BR 

OT.SXT 

& GO SET underway 



;INTEPRUPT SERVICF CB) - TRANSFER COMPLETE C?ll 

000310 

000430 

l3T. InTs 

BR 

.*2 

; INTERRUPT SWITCH 

00031? 

000723 


BR 

DT.SIP 

?FOP SRCH COMES HEREl 

000314 

142737 

000040 

177776 


BICB 

#40,«»?«177773 

SDRCP PRIORITY 

00032? 

013746 

000044 


MOV 

^«V.RSAV,-CSP) 

SON t^amsper complete ,,, 

000326 

^04536 


JSR 

R5,<!'(SP5 + 

sSAVE USER REGISTERS 

00033? 

016700 


MOV 

OT,R0 

SGET DDB AOOR 


1,77444 





•300334 

012701 

177342 


MOV 

#DT.CCM,R1 

SGET STATUS AODR 

30034^' 

012703 

000010 


MOV 

#10, R3 

sSET MAGIC CONSTANT 

00(d344 

00571 1 


TST 

»R1 

SERROR CAUSE TNT’RUPT? 

000346 

100451 


BMI 

or, TER 

?IF SO GO % SEE S^HY 

30035f* 

1173U 


MOVB 

R3,#R1 

SOTWERWISE STOP TAPE ,,, 

00335? 

316007 

000014 

DT,TXT: 

MOV 

14(R0) ,PC 

S... % take COMPLETE RETN 



jSEARCH 

ERROR - 

determine cause? 


000356 

005737 

177340 

OT.SER; 

TST 

##DT.TST 

SiN END ZONE? 

000352 

100707 


3 ‘1 1 

DT ,TA1 

SQ.K. MEANS TURN AROUND 

003364 

142737 

000040 

177776 


BICB 

#4g,«*#177776 

SDFOP PRIORITY 

300372 

013746 

000044 


MOV 

««V.RSAV,-(SP) 

SSAVE ALL USER REGS. 

333376 

304536 


JSR 

R5, t CSp)+ 


00040^ 

'^12701 

177340 


MOV 

#dt,tst,ri 

SGET DECT APE STATUS 

00'0404 

011146 

OT.FXTj 

MQV 

«9} , - CSP) 

sSET UP TO tell user 

000406 

012746 

000404 


MOV 

#dt1ire,-(sp) 


000412 

032721 

'114 00 0 


BIT 

#14000, (Rl) + 


000416 

0t?l 405 


9EQ 

DT.STP 

1.,.. IE SEL OR ILO 

000421^ 

012716 

0 if. 0 4 0 2 


MOV 

#DT,NRE, #SP 

tdiagnose tape fault diff. 

000424 

016766 

177364 

000002 


MOV 

OT.NAM^PCRP) 

AS NOT RFADY 

000432 

112711 

0 {f’00l0 

DT.STP! 

MOV 5 

#10,PR1 

jSTOP TAPE IN CASE 
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0P50436 

0 5* 0 4 

IDT 


?G0 TO DIAG PRINT 

0 0 0 4 4 

'^04767 

177400 

DT.RXT! J5R 

PC#DT,PR1 

?0N RECOVERY, SET UR RETRY 

000444 

013705 

0 0 0 4 6 

HOV 

«>itV,RRES?P5 

f RESTORE USER REGS 

00045^^ 

004615 

JSR 

R5,4iR5 


000452 

■’1000^712 

RTI 

*5LDC'< NOT FOUNn 

' TH search? 

?... & MORE FOR BETTER THINGS! 

000454 

016746 

177610 

OT.bfr: MOV 

DT,RCF,-(SP) 

IGIVE BLOCK NO, AS EVIDENCE 

000450 

^^12746 

'^01416 


#DT.8RE»-CSP) 


000464 

0127^1 

177342 

NOV 

<^0T.CCM,R1 

IGET control ADDRESS 

000 4 

000760 

BR 

;TR4N5FFP ERROR* 

dt.str 


000472 

032741 

034000 

OT.TER: BIT 

#34030, -CRD 

?TAPF FAILURE/DPERATOR FAULT? 

05*0476 

001342 

BNE 

OT.EXT 

?IF SO PRINT % WAIT RECOVERY 

00050^' 

032721 

1 PS ^ Ca 

61 T 

#10-0400, (PI ) + 

?END ZONE/N.E.M? 

000504 

i It ^ •* • lu 

001027 

BNE DT.FER 

jRECOVERAOLE errors ctinikg or 

flP SO treat as fatal 

PARITY) ; 

000506 

006327 

000003 

000510 

A3L 

0T,RTC=.-2 

#0 

?RETRIED 9-9 TIMES ALRDY? 

000512 

103352 

8CC 

DT.RXT 

?IF NOT TRY AGAIN 

000514 

052760 

100030 

000012 

BIS 

#100000,12(^0) 

^OTHERWISE SIGNAL ERROR 

000522 

110321 

MOVB 

R3, fRl)+ 

?STOP TAPE IN CASE 

000524 

016102 

P C** P £?i P 1 

HOV 

1 CR1 )»,P2 

|,,,R'JT CHK ALL KOROS DONFl 

00053^ 

S ■ iL 1 

001710 

SEQ 

DT.TXT 

tIF SO THAT'S IT! 

300532 

060330 

ADO 

R3,R0 

?G0 TO WORD COUNT IN DDB 

000534 

162002 

SMB 

C»?') + #R2 

?.,. ^ USE TO determine ,,, 

300536 

000302 

SWAB 

R2 

NO, OF BLOCKS DONE 

000540 

130321 

BITS 

R3, CR1)+ 

jCHECK PRESENT TRAVEL 

300542 

001401 

BEQ 

• +4 

?ADJUST NO, accordingly 

000544 

005402 

NEC 

R2 


300546 

060267 

177514 

ADD 

R2,DT,BRQ 

yMQDiFY SEARCH START BLOCK 

000552 

005067 

177732 

CLR 

DT.PTC 

% RETRY COUNT 

303556 

004767 

177306 

JSR 

PC,DT,PR2 

?G0 SET UP NEW START 

000562 

000730 

BR 

jFATAl ERRORS - 

0T,RXT+4 

EN'D ZONE OR NON 

% wait RESULTS! 

-EXISTENT MEMORY? 

000564 

011046 

DT.FER? HOV 

<>Re,-csP) 

jGIVE call as evidence 

000566 

012746 

001415 

HOV 

#OT.FRE»-(SP) 

yPRINT diagnosis 

000572 

000717 

BR 

dt.stp 
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f I S C F L L A %' £ 0 u S D F F I NJ T T I n s ! 


flgic’ij;. 4 4 

y,RSAV=44 

p! 0 4 6 

V,RRESs46 


OT,DIPsl0;^ 

177340 

::)T.TST=177340 

177342 

0T,CCMs177342 

177346 

0T,C8A=177346 

177350 

DT.CDT«177350 

000402 

QT, -'IFF5402 

t/i C( pi 4 ^ ^ 

DT,IRFs404 

*^01415 

DT,FRFs1415 

001416 

DT,BHF=14!6 

000001 

.FNO 

000000 FHRDRS 



DT 


000000RG 

DT.BCK 

5 000270R 

DT.BFP 

000454R 

DT.BFD 


00g264R 

DT.8RE 

a 001416 

nT.BRG 

z 0-10266R 

DT.CBA 

s 

177346 

OT.CCM 

a 177342 

OT.CDT 

a 177350 

DT.OIR 

B 

000100 

DT.EXT 

000404R 

BT.FFR 

000564R 

OT.FRE 

B 

001415 

HT.FRQ 

a 0*51^30213 


0'^031 0R 

DT.IRE 

B 

000424 

DT.NAH 

000014R 

BT.NRE 

a 000402 

DT.RRl 


002044R 

DT.PR2 

0*^0070R 

^T.RTC 

a ^'^^BIBR 

DT.RXT 


002440 ^ 

RT,SER 

0003b6R 

0T.SIF 

0B0162R 

OT.SBW 

s 

000R01 R 

DT.STP 

3>'’e432R 

IT.SXT 

0*^0256R 

DT.TAC 

s 

002212R 

DT.TAl 

000202R 

DT.TA2 

303242R 

DT.TER 


000472R 

DT.TFR 

000040R 

DT.TST 

a 177340 

DT.TXT 


200352R 

PC 

a%000007 

R0 

»%000000 

R1 

•%00000 1 

R2 

= 5(000002 

R3 

a%0005’03 

R4 

s 

%000004 

R5 

b%000005 

SP 

b%000006 

V.PRFS 

B 


V.RSAV 

a 000044 


a 000574R 


13 




DEC-ll-ODMTA-A-D 


PDP-11 


TMll/TUlO MAGTAPE 


DRIVER 


October 1972 

SUPPLEMENT TO: 

PDP-11 DEVICE DRIVER PACKAGE 
DEC-ll-ODDPA-A-D 

MONITOR VERSION V008 

COPYRIGHT Q 1971, 1972 BY DIGITAL EQUIPMENT CORPORATION 


NOTE 

This document is for information purposes only 
and is subject to change without notice. DEC 
assumes no responsibility for the use or reli- 
ability of its software on equipment which is 
not supplied by DEC. 


NEW AND CHANGED INFORMATION 

This manual documents the software as of Monitor version V08. It has 
been revised to include all new and changed material since Monitor 
version V0A. Such material is indicated by vertical bars in the out- 
side margin. Whole new pages are not so marked but are dated in the 
lower outside corner. 


SOFTWARE 

DISTRIBUTION 

CENTER 




CONTENTS 


1.0 

INTRODUCTION 

1 

2.0 

TAPE FORMAT 

1 

2.1 

Files 

1 

2.2 

Logical End-of-Tape 

1 

2.3 

End -of -Tape Marker 

2 

2.4 

File Label Record 

2 

2.5 

7/9 Track Bit Storage Patterns 

2 

3.0 

OPERATION 

5 

3.1 

Standard Monitor Functions 

5 

3.1.1 

OPEN 

5 

3.1.1. 

1 OPENI 

5 

3.1.1. 

2 OPENE 

5 

3.1.1. 

3 OPENO 

6 

3.1.1. 

4 OPENC 

6 

3.1.1. 

5 OPENU 

6 

3.1.2 

CLOSE 

6 

3.1.3 

READ/WRITE 

6 

3.1.4 

BLOCK 

6 

3.1.5 

TRAN 

7 

3.2 

Fimctxons 

n 

i 

3.2.1 

Special Function Block 

n 

/ 

3.2.2 

OFFLINE 

8 

3.2.3 

WRITE END-OF-FILE 

8 

3.2.4 

REWIND 

8 

3.2.5 

SKIP RECORD (S) 

8 

3.2.6 

BACKSPACE RECORD (S) 

8 

3.2.7 

SET DENSITY AND PARITY 

8 

3.2.8 

TAPE UNIT STATUS 

9 

3.3 

Error Processing 

10 

3.3.1 

Cyclical Redundancy /Parity Error 

10 

3.3.2 

Record Length Error 

10 

3.3.3 

Bad Tape Error 

10 

3.3.4 

BUS Grant Late 

11 

3.3.5 

Non-existent Memory 

11 

3.3.6 

Illegal Command 

11 

3.3.7 

OFFLINE 

11 

3.3.8 

WRITE LOCK 

11 

3.4 

Diagnostics Issued 

11 

4.0 

CHARACTER CONVERSIONS BY THE DEVICE DRIVER 

12 

4.1 

Prototype Conversion Routine 

12 

5.0 

PROCESSING NON-PDP-11 CREATED FILES 

13 

6 . 0 

MAGTAPE DRIVER LISTING V)2f06A 

13 

6.1 

MAGTAPE DRIVER LISTING V0004A 

25 



DRIVER FOR TMll/TUlO MAGTAPE CONTROL 


1 . 0 INTRODUCTION 


The TMll/TUlO Magtape driver provides the interface between 
the DOS Monitor transfer routines and the TMll Magtape control unit. 
It supports the operation of both 7 and 9-track TUIO Magtape units. 
In addition to supporting DOS Monitor OPEN/CLOSE, READ/WRITE, and 
TRAN processing, this driver provides several functions to enable 
user control of special device features. 

2 . 0 TAPE FORMAT 


Although Magtape is not considered a file-structured device, 
certain structure and label processing features have been imple- 
mented to enable creation and retrieval of multiple files on a 
Magtape . 

2.1 Files 

A file is a collection of sequential records bounded by end- 
of-file (EOF) records or by the bottom-of-tape (EOT) marker and an 
end-of-file record. In nonfile-structured TRAN processing, each 
record of a file is 256 decimal words long except for the first 
record, which is the file label and which is seven words* long. 

2 . 2 Logical End-of-Tape 

In order to accomplish label searching, it is necessary to 
know when the last file of a tape has been passed. This is ac- 
complished through the CLOSE request, which writes a logical end- 
of-tape (EOT) marker, i.e., a null file (three end-of-file records 
with no intervening data records) . 

A tape which has no files on it must be initialized by having 
at least one end-of-file record written on it in order to be used 
with OPEN/CLOSE processing. 

*Six words for monitor release. V004A 
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The last file on a tape is the one which was last opened for 
output. Any files which were on the tape following that file are 
not recoverable. New files which are added to the tape write over 
the old LEOT and write a new LEOT after the last record. 

2 . 3 End-of-Tape Marker 

Access is allowed beyond the end-of-tape (EOT) marker for all 
operations except WRITE. Attempts to write beyond the EOT marker 
are rejected and EOF/EOM status is set. 

2.4 File Label Record 


Each file created by OPEN processing has as its label (first 
record) a 7-word record of the following form; 


LABEL+pf 

LABEL+2 

LABEL+4 

LABEL+6 

LABEL+8 

LABEL+9 

LABEL+10 

LABEL+12 


FILE (WORD) 

NAME (WORD) 

EXTENSION (WORD) 

UIC (DEFAULT TO LOGIN UIC IF NOT SPECIFIED) (WORD) 
PROTECT CODE (DEFAULT TO 233) IF NOT SPECIFIED (BYTE) 
UNUSED (BYTE) 

DATE CREATED (WORD) 

UNUSED (WORD) 


This is also the form of the user's filename block. 


2 . 5 7/9 Track Bit Storage Patterns 

The following is a short description of the bit patterns stored 
on magnetic tape by DEC'S TMll interface. The TMll interfaces the 
7 and 9 -track TU10 drive to the PDP-11. 


Figure 1 depicts the results of a normal write on 7 -track tape. 
Bits 6, 1 , 14 and 15 are dropped. The density may be 200, 556 or 
800 BPI. For this type of write operation, a "character" is six 
bits of an 8 -bit computer byte. The output from one computer word 
(minus 4 bits) is stored in 2 characters. 


Figure 2 illustrates the 7 -track "CORE DUMP" mode of transfer. 
This mode is written at 800 BPI only and channels "DATA5" and DATA6" 
are set to zero. The result is that 4 bits equal one character and 
4 characters contain all the bits of one computer word (as shown) . 
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Bit j? 


DATA2 


DATA5 


DATA6 


j Bit 4 ' Bit 12 j 


Bit 5 


LATERAL PARITY CHANNEL, 


OTION 


The above is a grap 

^orTTial wri -1-0 


ape after 


DATAl , Bit 0 1 Bit 4 , Bit 8 I Bit 12 

, 

DATA2 J Bit 1 i Bit 5 ' Bit 9 I Bit 13 
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DATA3 I Bit 2 i Bit 6 ' Bit 10 I Bit 14 

1 

DATA4 I Bi 

1 

DATA5 I 0 


DATA5 

DATA6 


f i 

1 ^ ' 

0 

! 

1 ^ ! 

0 


MOTION 


Figure 2 7-Track Magtape PDP-11 


Bit 0 = Least 

Significant 

Bit 


4 Bits = 1 Character 
(i.e. : Bits 0-3 or 
4-7 or 8-11) 


The above is a graphic representation of 7 -track magtape after a 
"CORE DUMP" transfer. DATA5 and DATA6 channels are set = 0 for this 
mode. 

October 1972 
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For 9-track; tape units, all 16 bits are transfered as shown in 
Figure 3. One computer byte (8 bits) is equal to one "character" 
and two characters contain one computer word. Recording density on 
the 9-track units is 800 BPI only. 

A record may be 2 to 3276 7 ^q words in length. The end of record 
is marked as follows: 

1. 9 -track: 3 blank "characters", 

CRC "character", 

3 blank "characters", 

LPC "character" 

2. 7 -track: 3 blank "characters" 

LPC "character 

Finally, an EOF for 9-track is a 23g plus an LPC of 23g and 
for 7-track an EOF is a 17g plus an LPC of 17g. 


CRC - Cyclical redundancy check 
LPC - Longitudinal parity check 
EOF - End-of-file 



Bit 0 = Least 8 Bits = 1 Byte = 1 Character 

Significant 
Bit 

The above is a graphic representation of 9 -track magtape after 
a write operation. 

Density; 800 BPI Only 


October 1972 
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3 . 0 OPERATION 


An OPEN oir CLOSE 3r©<5U0St csusss tin© Msg'tsp© to b© nswounci 


3.1 Standard Monitor Functions 


3.1.1 OPEN 


In general, an OPEN performs the following: 


a) The driver rewinds the Magtape; 

b) the driver checks if the device is already open 
and if so takes the user error exit; 

c) if the OPEN is for output processing, the driver 
then checks that the write lock bit is off. If 
the write lock bit is on, the driver issues an 
action Monitor request to insert the file protect 
ring before continuing; 

d) the driver then reads the first record of 
each file, comparing the filename, extension 
and UIC of the label with a merged version of 
the user filename block and any overriding 
assignment until it finds a match or until 
the logical end-of-tape is read. 


If an error occurs while reading a file label*, an action error 
message is printed. If the operator elects to continue processing, 
the label is read as though no error had occurred- When OPEN pro- 
cessing has been successfully completed, the device is set open and 
control returns to the user. 

3. 1.1.1 OPENI 


This request requires that the file be found during file search. 
If LEOT is encountered, the user error exit is taken. 


3. 1.1. 2 OPENE 

If the file is found, the driver skips to the end-of-file. If 
the file is not found (i.e., LEOT read during file search), the file 
label is written over the LEOT. 
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3 . 1 . 1 . 3 OPENO 


If the file is not found # the file label is written over the 
LEOT. If the file is found, an action diagnostic is issued. If 
the operator removes the current tape and readies a new one, the 
entire search procedure recurs. If the operator continues to 
operate without replacing the tape, OPEN behaves as if the driver 
just wrote the file label. 

3. 1.1.4 OPENC 

Same as OPENE except that if file is found, does not skip to 
the end-of-file. 

3 . 1 . 1 . 5 OPENU 


This request is not allowed. 

3.1.2 CLOSE 

If the last operation to the device was a WRITE, CLOSE writes 

t he logical end-of-tape and rewinds the tape. If the last operation 
as not a WRITE, CLOSE rewinds the tape. In either case, CLOSE 
clears the OPEN status. 

3.1.3 READ/WRITE 


These requests are buffered through the Monitor and allow all 
normal modes of character transmission (e.g., formatted ASCII, un- 
formatted binary) . EOF/EOM is flagged when an EOF record is read, 
or during output when the EOT marker is sensed. 

Unlike most other devices. Magtape flags parity errors on 
WRITE operations. 

3.1.4 BLOCK 


This request is not allowed. 



3.1.5 TRAN 


This request allows sequential processing of records from 2 
to 32767 words in length. On output all requested words are written. 

On input the requested number of words is read or all words in a 
record are read, whichever is less. Where the number of words re- 
quested is less than the number of words in a record, an error is 
flagged (see Section 3.2.2), Where the number of words requested is 
greater than the number of words in a record, a residue word count is 
returned. In the latter case, the Monitor may flag EOF/EOM; however, 
this will be erroneous unless the residue word count equals the 
requested word count (which case will occur only when an EOF is read) . 

If a record is short by an odd nxamber of bytes , it is padded 
with one null character and the word count is set to (NUM BYTES READ+l)/2 
before short record checking is done. Thus, the user can determine 
the size of a record only to the nearest rounded word. 

3 . 2 Special Functions 

These functions are provided for use in TRAN processing or out- 
side the scope of OPEN/CLOSE processing. However, they are not re- 
stricted to these areas and care must be exercised in their use. 


3.2.1 Special Function Block 


The Magtape driver requires a special function block to perform 
the special function requests . The following is the calling sequence 
for Magtape special functions and the special function block format: 


MOV #SFBLK,-(SP) ;ADDR of special function block 

MOV #LNKBLK,- (SP) ;ADDR of link block 

EMT 12 ; Special function EMT 


SFBLK : . BYTE 

.BYTE 
.WORD 
.WORD 
.WORD 


Special function code 

Words to follow must be 3 or larger 

Tape unit status (returned by driver) 

User specified count or control information 
Residue count (returned by driver) 
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3.2.2 OFFLINE (Rewind and Unload) - function Code 1 


This request causes the Magtape to be rewound to the beginning- 
of-tape (EOT) marker and SELECT REMOTE status to go off. If the 
last command to the driver for this device was a WRITE, an EOF is 
written before rewinding. Thus, this function could cause data to 
be lost if it is issued before a CLOSE during READ/WRITE processing. 

3.2.3 WRITE END-OF-FILE - function Code 2 


This request writes an end-of-file record on Magtape. It may 
cause data to be lost as described under OFFLINE. 

3.2.4 REWIND - function Code 3 


The REWIND request performs the same function as OFFLINE except 
that the SELECT REMOTE status does not go off. 

3.2.5 SKIP RECORD (S) - function Code 4 


Skips forward over the requested number of records (SFBLK+4) 
until either the SKIP count is exhausted or until an EOF record 
is encountered, in which case the EOF is spaced over and counted, 
but the operation terminates and a residue count (SFBLK+6) is returned, 
(if any) . 

3.2.6 BACKSPACE RECORD (S) - function Code 5 


This request skips backwards over the requested number of rec- 
ords until either the SKIP count is exhausted or until an EOF or 
the BOT marker is encountered. If an EOF is encountered it is 
spaced over and counted, but the operation terminates and a residue 
count is returned (if any) . If the BOT marker is encountered, it 
is not skipped or counted, and a residue count is returned. 

3.2.7 SET DENSITY AND PARITY - function Code 6 


This request is ignored for 9-track tapes; it sets density and 
parity as follows for 7-track tapes: 



DENSITY (SFBLK+5) 


PARITY (SFBLK+4) 


j? = BPI 

1 = 556 BPI 

2 = 8j?j2f BPI 

3 = BPI Dump Mode 

The default density and parity are 80^ BPI Dump Mode, ODD. In 
this mode, one byte from core is represented as two bytes on 7-track 
Magtape. Changing from this default causes one byte from core to 
be represented by one byte on tape with a loss of the two high 
order bits (6-7) of the byte. 

3.2.8 TAPE UNIT STATUS - function Code 7 


This request returns the current status of the tape unit in 
SFBLK+2 in the following form: 

Content 

Last command was : 

i? = OFFLINE 

1 = READ 

2 = WRITE 

3 = WRITE EOF 

4 = REWIND 

5 = SKIP RECORD 

6 = BACKSPACE RECORD 

Unused. 

1 = TAPE AFTER EOF (BEFORE EOF IF 
LAST COMMAND WAS BACKSPACE) 

1 = TAPE AT BOT MARKER 

1 = TAPE AFTER EOT MARKER 

1 = WRITE LOCK ON 

PARITY : 

gi = ODD 

1 = EVEN (DEFAULT = ODD) 

J? = 9 TRACK 
1=7 TRACK 

13-14 DENSITY: 

= 2i2fJ7 BPI 

1 = 556 BPI 

2 = 8j?j? BPI 

3 = 8j?j2f BPI DUMP MODE 

15 1 = LAST COMMAND CAUSED ERROR 


Tape unit status is returned in SFBLK+2 for all special functions. 


3-6 

7 

8 
9 

11 

12 


Bits 
- 2 


j? = ODD 
1 = EVEN 
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3. 3 Error Processing 


In most circumstances, the device driver attempts recovery from 
error conditions by retrying the operation several times, and fail- 
ing to complete the operation either returns to the user with the 
error flag set or issues a fatal diagnostic. 

3.3.1 Cyclical Redundancy /Parity Error 

On input operations , the driver attempts to reread 15 times and 
if error persists, returns control to the user with error flag set. 

On output operations , the driver attempts to rewrite 15 times 
with an extended record gap and if error persists issues an action 
diagnostic before returning to the user with the error flag set. 

On other operations, the condition is not relevant and is ig- 
nored. 

3.3.2 Record Length Error 

On input the driver returns to the user with the error flag 
(bit 15 of TRNBLK+6) set (see DOS Programmers Manual) . The condition 
is not possible on write operations. 

If the number of words requested in an input TRAN is less than 
the physical record size on magtape, bit 15 of the Function/Status 
Word is turned on, the number of words requested are transferred, 
and the driver returns normally. The remaining information in the 
record Hs "lost” in the sense that it can only be read by back-spacing 
and re-TRANing with a larger request. The next TRAN will get the next 
physical record. 

Record length errors can be differentiated from other (e.g., 
parity) errors only by inspecting the hardware registers. 

3.3.3 Bad Tape Error 

This error is treated as described in Section 3.3.1. 
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3.3.4 BUS Grant Late 


Driver checks status word of device* to detect BUS Grant Late 
errors and issues a fatal diagnostic. 

3.3.5 Non-existent Memory 

The driver issues a fatal diagnostic. 

3.3.6 Illegal Command 

The driver issues a fatal diagnostic. 


3.3.7 OFFLINE 


Whenever the driver detects a device not-ready condition, it 
issues an action diagnostic before processing the coininand. 


3.3.8 WRITE LOCK 


If the last command given is a WRITE or WRITE EOF and the 
WRITE LOCK is on, the driver issues an action diagnostic before 
processing the command. 


3. 4 Diagnostics Issued 


- DEVICE NOT READY OR FILE PROTECT RING NEEDED 
(see 3.1.1, 3.3.7, 3.3.8) . 

A0fjaf6 - UNRECOVERABLE WRITE ERROR AFTER 15 RETRIES 
(see 3.3.1). 

A0j?7 - LABEL FOUND DURING OPENO (see 3. 1.1. 3). 

Aj?ljaf - UNRECOVERABLE READ ERROR AFTER 15 RETRIES DURING OPEN 
(see 3.1.1) 

F^12 - NO USER ERROR RETURN SPECIFIED IN FILE NAME BLOCK 
DURING OPEN. 

Fj2f32 - FATAL ERROR ON MAG TAPE (see 3.3, 3. 3. 4- 3. 3. 6). 

F0f33 - BAD SPECIAL FUNCTION BLOCK FORMAT (see 3.2.1). 


*Release V0j2f4A does not check status word but does 15 attempts 
and gives fatal error. 
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4.0 CHARACTER CONVERSIONS BY THE DEVICE DRIVER 


It has been suggested that it would be desirable to have the 
device driver convert data from ASCII to other coding schemes or 
vice versa. Although this presents no great implementation problem, 
there are two reasons why it is not being done; 

1) The tables necessary to perform these conversions 
would be large. 

2) The user can maintain his own tables and do con- 
versions more flexibly than the driver. 

4 . 1 Prototype Conversion Routine 

The following is an example of a conversion routine which a 
user might use to do coding scheme conversions: 


; CONVERT 

FROM 

CODING SCHEME 

A TO CODING SCHEME B 

CONVAB: 

MOV 

#RECADR,R1 

;ADDR OF BYTES IN SCHEME A 


MOV 

RECLEN,R2 

; NUMBER OF BYTES TO CONVERT 

/ 

NEXT? 

CLR 

BISB 

R0 

@Rl,Rj3 

;GET BYTE IN SCHEME A 


ADD 

#CONAB,Rj? 

;ADD ADDR OF A TO B TABLE 


MOVB 

@Rj2f, (Rl) + 

,• REPLACE SCHEME A BYTE WITH 
? SCHEME B BYTE 


DEC 

R2 

; DECREMENT BYTE COUNT 


BNE 

NEXT 

; BRANCH IF NOT FINISHED 


NOTE 

Conversion table CONAB contains bytes in 
coding scheme B ordered such that the 
numeric value of A byte in coding scheme 
A is the index into CONAB of the corre- 
sponding byte in coding scheme B. 
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5.0 PROCESSING NON-PDP-11 CREATED FILES 
This feature is not yet available. 

6.0 MAGTAPE DRIVER LISTING V00eA 
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t 

?MTS PITS 
I 

177777 JLC5l700'7'’ 

'’47777 ECFs40000 
'’25*7^7 CPE320000 
^17077 PAe*l0000 
7:1/1077 BGL = 4000 
70707'? FrT8270!^ 

77i?7? R|,Eal700 
r/ 07 4 7? 6 T e = 4 7 0 
707277 NXN<a270 
'’07 177 SFL.R5 107 
'’0774? B C T = 4 7 
7 07(/?7 CH7R = 20 
7 '3 7 7 1 7 S D W s 1 0 

777774 K P L a 4 
707772 RI*Sa2 
777771 T| Rsi 
C*07 1 47 0FNiB = 147 
■'’0771? PARPal0 


13 



cv ,VT 

MiCPr vr04-l4 13 -«;f.p-72 

73s 7 '0 P4GF 1 + 


ee 


} 



59 


JWTC PITS 



50 


t 



51 

i Pjf? 2 

FR9sl00(?'00 



5? 

^ 5 0 0 0 0 

DFNa60000 



53 

0 1 7 0 0 

pri«Rsi00<?0 



54 

004 

PARS4000 



55 

003400 

UNIT53400 



56 

000200 

Cl'Rs200 



57 

0 0 9 1 0 

IN T»100 



58 

000060 

AnEV«60 



59 

00001 6 

c^^N'Ooie 



7!? 

000001 

GCB«1 



71 


1 



72 


?MTRD 8TT 



73 


f 



74 

010000 

GAP8DNal0000 



75 


f 



76 


KOM^ANrS 



77 


» 



78 

0 0 0 0 0 0 

R»^u«0 



79 

700001 

RFADsl 



80 

700002 

WPITE82 



81 

000003 

ErF»^ = 3 



82 

000004 

p k D » 4 



83 

7 f? 0 5 

SKPRaP 



84 

000006 

88PR=6 



86 


? 



86 


t 



87 


t 



88 


;THIS IS THF DEVirF D'^IVEP fQR 

ThF TM1)/T|i10 

89 


t 



90 


.ifdf 

0 V H R * n 


91 


.Fivrr 



92 7000'? 

000000 

PT: .i'OPD 

0 

SPUSY IN'DTCATrR 

93 00002 

177 

,PYTE 

177 

sALL GPNFDAI stplcturf fxcept op 

94 00003 

04e 

,PYTF 

40 

ISPFCTAI STRUCTIRF * PAG TAPE 

95 00004 

020 

,«YTF 

20 

SPIJFFFR ST7F « F12 BYTES 

96 00006 

360 

.«VTF 

IN T-.I-^T 

yTMTFRRUPT FAN'DI EP 

97 00006 

240 

.'^YTF 

240 

sPRTO FrR TKTFRRLFT SERVICE 

98 00007 

070 

.pytf 


?Nr> CPE^' PNTRY 

99 00010 

374 

,«ytf 

T R A N S 3 T 

jTRAN’SFFR ENTRY 

100 0011. 

370 

.°YTF 

CI.CC..J-MT 

?'"LCSE PNTRY 

101 0012 

364 

.»VTE 

SCprj^MT 

SSPFCTAI Fl,NXTirN' ENTRY 

102 0013 

0 70 

.PYTF 

0 


103 


, TFHF 

0 v R R A 0 


104 


MT.N'AMj ,sA050 

/0T/ 


105 


,FNrc 



106 


,TFVCF 

0 V R B ^ f' 


107 0014 

752140 

mt.n'Avj ,RAn 50 

/‘'t / 


108 


,FNnc 



109 


f 



lie 00|6 

0'^e 

OFfv’FLGJ ,«YTF 

0#0»0»0(i0*0f0»0 

SSET PV CPEN POITTNF, CLEARED BY 

0017 

000 




0020 

"rn,n 

%■’ t.- 




0021 

000 




0022 

000 





14 



cv,^ 

T 

M & C C C y C 0 4 • 1 4 17 

-•6eP-72 

03:03 P A G F 1 + 



0!?23 

0 7p 






0?^24 

'f ^0^ 

7 7 0 

■f ^ -7 





1 1 1 

0726 

377 

Lt^^D J 

.^^YTE 

“I .»*l»*1»"l»^lf 

•1.-1,-1, ;l BYTE FOR EACH PEVIC 


0P27 

377 






003P 

377 






07 31 

377 






0732 

377 






07 33 

377 






0734 

377 






0735 

377 






0736 

0^0 





112 

0737 
J* 0! 4 f? 

0 0 0 
*7 ?? :7 


.«VTE 

51,??, 3, 7. 0,0, 0,0 

jDFK'/FAR FpR FAfh CFVICF 


074 1 

/ !., 

0 .'5 0 






074 2 

0-^0 






0 74 3 

070 






0744 

070 






07 45 

0 7 0 






0745 

070 





1 13 

0047 

0 70 

TFKe* 

,0yTF 

Tj 


114 

^ ^ ^ 

n !Vl .7 0 ? 0 

IMRETj 

.WORD 

0 

jAnOR FOR PPT FRCM INT HAKDLER 

115 

0752 

0 70 

TTM^D * 

.BYTe 

0 

H AST C^MD SAVE LCC^' FCR FRR REC 

116 

0753 

070 

FPRSIa* * 

.pyTF 

0 

»SFT PV FRR RFCrVFRV IF NOT RECC 

117 

00e!4 

f? 0 f; 0 r* 0 

RFTRY r 

ORO 

3 

IRETRV rOUNT FOR FRPOR RECOVERY 

lie 

7.7 55 

177751 

TPYCNT: 

, WORD 

-15, 

jTNTTTAI. retry count 

119 

0767 

700070 

L ASTAT; 

.WORD 

0 

lAOOR 1 CMHO VECTOR FOR INT HA 

12e 

0762 

7 0 f> 0 7 

CV A ? 

, WORD 

0 


I2l 

07fi4 

« 21 7 0 

BPC ! 

.“ORC 

7 


122 



t 




123 

0 065 

015071 

I^ITS 

MOV 

1 2 f R 0 1 , R 1 

?PFT LKTT NUH 



700012 





124 

0772 

i7 4 2 7 0 1 


BTC 

*174377, R1 

:CLR FXTRA BITS 



1 74377 





125 

0775 

710137 


MOV 

R1 , #*^70 




177522 





126 

0102 

000371 


vBWAB 

SI 


127 

0104 

750771 


A50 

pr,Ri 


128 

0105 

062701 


A50 

*IC*^MD«, ,R1 

jADOR U' I. AST CMKO VECTOR 



1 77727 





129 

0M2 

712674 


MOV 

(?F V*,R4 

y SAVE RFTI R^ ADCR 

13(? 

0114 

0 12675 


MOV 

C?P1 *,R5 

rSAVF CRTGTNAI. PC 

131 

0115 

7 1 3 7 4 6 


MOV 

•*R?#*CSP1 

ISTMUI. ATE TNT call 



1 77776 





132 

0122 

7 1 0 5 4 6 


MOV 

R5,-CSR1 


133 

0124 

0 1 3 7 4 6 


M0 V 

«*4 4,« CBPI 

ySAvE RFGs 



007044 





134 

0137 

0 04535 


•ISW 

R« , * ( 8 OU 


I3g 

0132 

7 17 4 4 6 


MOV 

W4 CSP) 

?RESFT CALLTNC PC 

136 

0134 

0 17 15 7 


MOV 

R1 ,t ASTAT 

fSAVF FOR INT handler 



1 77720 





137 

0147 

0 7 ,1 7 5 7 


J .3 R 

RO ,PRAr)V 

yOMFCX TF IJMT RFADV 



'■^00162 





138 

0144 

1 0 571 1 


T6TR 

(sn 

jrHFCt< TF DFVTCF TMTTALITEP 

139 

0145 

1 07004 


MRU 

I '' I T A 

yPRANCH IF T3 

I4p 

0 1 57 

1 1275 1 


H0 yp 

*rFM, 10(R1 1 

ySET DEFAULT DEN ipep , PAR*rOD 



700140 






15 



CV.M 


WACPO 13-SEP*7? PAGP 




0i'50 0 1 0 





141 

0156 

10501 1 


C I, R 5 

c R n 

»r|.FAR K!0V TMTT STATF 

142 

0160 

'^0'’207 

I I T X f 

RTS 

RO 


143 



1 




144 

016? 

1 0'^067 

1 77665 

STHrOM : 

ni RP 

ERRS'A 

KLFAP FRPCF SWITCH 

145 

0166 

105767 

1 77655 


TSTR 

IMENB 

?PRANCH IE INT PFT 

146 

01 7? 

P 0 1 0 ^ 5 


fiV!E 

MTE.XIT 


147 

0174 

105760 

1 77775 


TSTR 

-3 (RO) 

rPRAN'CH IF CALLFC PPOH (5UFUF 

148 

0200 

<^01002 


RME 

MTfXtT 


149 

0?02 

062706 

0^0020 


AHD 

1^20 , SP 

; REMOVE PC, PS AND PEGS 

160 

0206 

1 05067 
177635 

MTEXITj 

CLRR 

I N T E ^ B 


151 

0212 

0 00170 
00001 4 


JMP 

<*14 fROl 

»COMPl.E TIOK' EXIT 

152 



i 




153 



1 




154 



i 




155 



} 




156 

0216 

0 1 2 6 6 7 

1 77626 

r,ni 

MDV 

CCP1+,IMTPET 

IvSAVE I^'T PFTi'RK ADDR 

157 

0222 

015737 

1 77634 

1 72526 

f;0A: 

MOV 

Cv A , «*MTCMA 


158 

0230 

016737 

177630 

1 72524 


M0V 

8RC »<s*MTRRC 


l59 

0236 

121127 
0 0 0 0 2 


C^PO 

(cn ^i^wPiTp 

jCHFCK if this is a WRITE 

i6e 

0242 

001007 


RWE 

G02 

jPRAtyCH IP KQT 

161 

0244 

032737 

000004 

1 72520 

6011 

8TT 

#url ,****^1$ 

iCHFCK IF ftPITE LOCK CK 

162 

025? 

001403 


REQ 

G02 

jpranch if kot 

163 

0254 

004767 

000034 


JSR 

Pf^PEAnvi 

jtssuf action hsg 

164 

0260 

000771 


BR 

GO 1 

»r,0 TFgT tF lock STILI, OK 

165 

0262 

004767 

000040 

GD2f 

J5R 

PC fREAOY 

?rWFCK TF CEVTCF PEADV 

166 

0266 

156137 

00001,0 

172523 


RTSB 

1? (cn ,in^fMTO*l 

ISET OEM ANO PAP 

167 

0274 

052702 

000101 


HIS 

«T\T+Gr|R,»2 

;SET TNT FKP AND GC BITS 

168 

0300 

110237 

172522 


MOVB 

R?»«'1iMTr 

» ISSUE TNSTPljrTTCN 

169 

0304 

013746 

Gr3f 

MOV 

^ *46 (SPl 

JPFSTCPF PEGS 



000046 





170 

0310 

004536 


JSR 

R5 (SPU 


171 

0312 

0 0 0 0 2 


RTT 


JPETIJPN TO INTEPRLPT 

172 



I 




173 



; 




174 

0314 

016746 

1 77474 

PEAHYl J 

MOV 

MT 4M,-f«;Pl 

JTSSUF ACTION DTAG - 


16 



D V , V T 


PAGP 1 + 


176 

032P 

'’12746 


MOV 

^*422 (FP1 

J OFVirE 

NOT RFAnV 



7 7 4 .7 p 






176 

^ ^ A 
‘7 < 4- 

C’ 0 7 k? 7 4 


T 0 T 




177 

0326 

■’32737 
i.^ C3 7 1 0 

1 72620 

RF ADY I 

rtt 

*?Fi R,«*(MTS 

ITEFT IF 

OFVieE RFATV 

178 

0334 

f’ 0 1 7 6 7 


HFQ 

RFACYI 

TBRANCF 

IF f^QT 

179 

0336 

032737 

1 72532 


BTT 

«f:APSnNJ»6*fHTR0 



180 

034 4 

0 0 100 4 


3 ME 

rfacyv 



181 

0346 

032737 
00001 3 

1 72520 


BTT 

HTUP + P^S + FDVIN f 

fl^YTF 


182 

0354 

001787 


BFQ 

R F A r Y 1 



183 

0366 

9 3 7 p !? 7 

RFAOYy s 

RTS 

PC 

f PFTURN 

Tn CAI UFR 

184 



; 





185 

0.3617 

000167 

000734 

I^ T.n 

JWP 

INTI- 



186 

0364 

0001^7 

0010222 

SPECJs 

JMP 

SPFr 



187 

0 3 7 f* 

030167 

C t 0 8 J • 

JMP 

Ct CFE 




<? 0 7 (5 7 (P 

188 ? 

189 S 

I9e c??7^ pr^47*7 TRAP'S! ,TSR Pf*,T;\TT 

1 77486 

1 5 i F 4 0 i? r/ j « ^ ft 7 i i r, y' 6 f 9 " > » C A 

< 77484 

192 e406 i7t^067 MHV l'7(R01rBRr 

f* F (7 0 ^ 0 

1 77480 

193 F414 F0A387 ASl, pRC 

177444 

194 F42P Mny 1.?(P01,92 

'~ i j i? 1/ 1 5 

195 0424 .7427?72 PTC «1 777 1 3»R9 

1 77713 

196 043P ''3?7''’2 BIT ^4,0? 

T ? 0 0 4 

197 0434 014 OIK RPQ tcakh 

l9e 04 38 112711 ;inVB ^READ,(9n 

'’30001 

199 0442 1 62;"<2 SHH ^2,92 

rs 10 .7 0 7 p 

2 00 0 44 6 /707414 B9 TPA^v2 

201 0450 032737 TRAKQl BTT 4 <pct,«#MT8 


7, 0 p 7 7 7 

1 72520 


2172 

0 4 5 * 

001404 


BFO 

T 9 A K 1 

IPRANCF IF NOT 

2P3 

0460 

016060 


M n V 

10 (R01 , 1 6 rR0 5 

^RETURN i^PRC COUNT 



00701 0 







0 0 0 0 1 6 





204 

0 4 6 6 

000635 

TPAN7 * 

RP 

S T 0 r 0 M 

fppTprT CMMC - FyjT 

2C5 

04 70 

112711 

TPAMl * 

MO VP 

^'‘Rttf, (Ri ) 

»FFT UAFT Cmmc s WRTTF 


7^50 0'’ 2 


irVT TC PYTF COUNT 

irtP ALU BUT PEAC AND APDR FXT B 

trHFC*< TNPUT/rUTPUT 

tPRAvru TP nUTPf T 
*FFT I AFT CRM6SFEAC 

*FET IF RFAC CMvc 

ITHFCK TF AT FQT 


?TNTT CMpCK DFVICF 
iSFT Bt^F ArOP 

IFFT t»CPD C^U^T 


17 



CV.vT 


HACPC vr0-3<-14 n-*=!KP*72 PAGP I* 


206 

0474 

'^6?702 

00^004 


A^D 

**4 ,P2 

IBFT IF if^PITE CMBO 

207 

0500 

P04767 

1 /7512 

TRAK2I 

JSR 

Pff 00 

J0O imtiatf T/0 

208 

0604 

1 7?5?4 


M n V 

0*MTBPCf R? 


209 

0K 1 fS 

121 107 
•^00001 


0*^28 

(Rl 5 .^RFAO 

jCOME FFRP after TNT FRR CHK 

210 

0514 

001006 



T R A N' 6 

JPRANOK IP K^OT READ 

211 

0516 

03P737 

040000 

1 7?6?0 


BIT 


>TF EOF, 6ET TMT C^T RESIDUE 

212 

0524 

001402 


BPQ 

TR AN 6 


213 

0526 

016702 

<77332 


Mnv 

BPC ,R2 


214 

063? 

'^0^20? 

TRAK6S 

ASR 

R? TOMFCK 

IF OOD EYTPS SHORT RFC 

215 

0534 

1 03004 


BCC 

TPAk 3 

IPRAKTH IP KOT 

216 

0636 

013705 

1 7?5?6 


HHV 

0AMTCV4 ,RBi 

JPIJT NLI I, IN NFXT BUFF PCS 

217 

054? 

1 1.5 


C! RP 

(p55 


218 

0544 

005202 


P'C 

p? 

?R0UN*0 IP WORO COUNT 

219 

0546 

001402 

TR AKi3 * 

BFQ 

.+6 

fPRANCh IF NO RFSTCUE 

220 

0650 

05?702 

100000 


BTS 

#1 00000, P? 

ttnisupe kfg wort count 

221 

0654 

03?7.37 

001000 

1 7?5?0 


BTT 

#PLt: 

jchfck tf lfngth FRRQP 

222 

066? 

001402 


BFQ 

TR AK 4 

JRRANCH IF NOT 

223 

0564 

1 0«=267 

1 77?63 


T^'CR 

f. P P 5 « 


22.4 

06 70 

010260 
^ 0 f? <7 1 6 

TPAK4 1 

MOV 

H? . 1 6 (R0) 

JRETURN RFSTOUE i»CRD COUNT 

225 

0574 

1 05767 

1 77253 

T P A K X 1 

TSTB 

EP9S^ 

IBRANCH IF NO FRRCfi? 

226 

06ep 

001403 


BPQ 

T P A ^ 5 


227 

060? 

05?760 

100000 

000012 


BTS 

#1 20000, l?fR0) 

tSFT FRR PIT 

228 

0610 

000726 

TPAKiS? 

BP 

TP an 7 

fTAKE CONF FXTT 

229 



f 




230 

061? 

004767 

177250 

SPECt 

JSR 

PC,TNTT 

?TNTT CHECK OFVTCF 

23l 

0616 

01^003 

000002 


MOV 

2fP0WR3 

?GET FLNC PI.OCK AODR 

232 

0622 

1 1 1 305 


M0 VP 

CP3),R5 lOFT FiJK'c RVTF 

233 

0624 

162705 

000001 


SUB 

^5PFST,R5 


234 

0630 

1 00767 


BMI 

TPA\5 

IPRANCH OUT IF NCT 

236 

063? 

022705 

000006 



*8Pl.ST,R5 

iSlJPPORTEr FUNCTION 

236 

0636 

1 03764 


BIO 

TR AA 5 


237 

0640 

122763 

000003 

'*00001 


CMPR 

43# 1 (R35 

iTHFCK IF VALTO FINC PLCCK 

238 

0646 

131014 


HHI 

A P C P T 

JA80RT TF NOT 

239 

0650 

00^305 


ASl 

R* 


240 

065? 

ni60705 


Aon 

PO ,P5 



18 



CV.I 

H' T 

'ACPG vr04^i.4 r 

^-SEP.72 

03:0? PAGF 1* 


24i 

17654 

^62705 

ft i A O ty O £ 


A'^D 

#«PPCT«, ,R5 


242 

ti £ £ n 

ifj 1 . 

.y A /y t 4 S 

- ■ Vi i' i ;j 


JMP 

iS R S 

?GO Tr PRrPFR SP FLN'C RuvTf^E 

243 



1 




244 



1 




245 


<T( r» c>, 0 j 

SPPSTsl 




246 


'^00006 

SPLSTae 




247 



f 




24fl 

? 66 ? 

000412 

3 prr T • 

UR 

n c F 1 r 

w ' « 1 . 4 .’“ 


24g 

0654 

000452 


HR 

NFCF 


25? 

0666 

000417 


RP 

R i» N 0 


251 

067*^ 

<^00476 


0R 



252 

0672 

0 0 (7 6 r?! p 


HR 

R8P 


253 

0674 

0 0 4 6 3 


RR 

P4RCF>i 


254 

0676 

000530 


RF 

TISTAT 


255 



1 




256 



J 




257 

0700 

010346 

AROPTj 

M0V 

R3»^CSP1 

8TSSUF SP FlJNC PieCK PAR ABORT 

258 

0702 

012746 


Mny 

*1 433, « (8° 3 

?WTTH AHDR RF 3F FIHC BLOCK 



001433 





259 

0706 

0 0 0 0 4 


T0T 



26? 



f 




261 

071(7 

004767 

000052 

1 0*^0 1 1 

OFFI.I^J 

J3R 

Pf .FOPCK 

IWRTTF FOP IF NiFCFSSAPY 

262 

0714 


ni.Rp 

(Kl) 

?8FT 1 APT CYM6»CFFLTNF 

263 

0716 

1 17737 

r s ( A r* o 

1 72522 


M? VR 

w 1 f •*« TG 

JTS8UF RTPAPLFD RKV 

264 

0724 

17 0 £ < K 


HR 

TUSTAT 

IRFT PTAT AND EXIT 

265 

0726 

^04/67 

000034 


JRR 

pr ,FnFCK 

jTSPUP HOTTF FOP IF NiFCPSPARY 

266 

0732 

004767 

000002 


.T5R 

PT f P'^^DC 

iTSPUF RTPAPEFO RWD 

267 

0736 

00051? 


BR 

T l,i S T A T 

8PET PTATiip AND EXIT 

268 

0740 

112711 

000004 

RWNDCS 

MOVR 

*R'Ae . fR! 3 

IPET LAST CHMRaRKR 

269 




» T F 0; F 

Q W R K n u 


27? 




RR 

RWKrx ?PYPA8S 

RFWTNr 

271 




.F\nc 



272 

0744 

037737 

000042 

1 77520 


BT r 

«HCT+PWS , •#pT8 

ITS IT REWCUNR 

273 

0752 

001004 


Rve 

Rl^NRX IVFR, BRANCH 

274 

0 754 

017702 

000016 


M 0 V 

41 6 ,R2 

jtspuf 

275 

07 6 0 

030 1«7 

1 77232 


J"p 

GC 


276 

0764 

000277 

RW\0X ? 

RT3 

PC 


277 



0 




278 

076« 

121127 

0 0 0 ? 0 2 

FTFCKj 

C^RR 

CP13.*RRITF 

?IF LAST rMHO WAS WRITE 

279 

0772 

00 M0t 


RPQ 

f-: c F r K 1 

jPRAKCF 

28? 

0774 

000207 


RTS 

pr 

jFLSF RFTlRN 

281 

077 6 

012702 

C’ 0 0 0 0 6 
012667 

ECFCK1 1 

V 

46 ,R2 

JPET CFYDsWRITE EPF 

282 

1002 


M0 V 

CSP3 + ,INitret 

|5FT TNT RfT AOPR 



1 77242 






19 



CV.VT 


MAC'?n vr04*14 n-SEP -72 0.'<!00 PAGF 1 + 


283 

1006 

^ 0 1 6 7 
177232 


JMp 

GCl 

JBO EXECUTE 

284 



0 




285 

1012 

M271 1 
000003 

^FOF* 

Mp VP 

F n F M , ( R n 

JPET l,APT CPMn 

286 

1016 

05)47^7 

1 77764 


JSR 

PC fFOFCXl 

IGO EyprUTE WRITE EOF 

287 

1022 

f?0P466 


PP 

ti.,st 4 T ;at tk>t 

RET, GET .«TAT AK^C EXIT 

288 







289 



i 




290 

1024 

032737 

000020 

1 72520 

PARDEK' 1 

BT T 

^rH79 

*TF 9 TRACK tape 

291 

1032 

001462 


HFQ 

TLST.AT 

jPRANCB (TGK'OPE KEK SETTINGS) 

292 

1034 

0 I 6305 

000004 


Mnv 

4 fR33 ,R5 

jGET NEW pEF/PAP 

293 

1040 

042705 

17^376 


BTC 

«1 763 76, R6 

?CLR extra PITS 

294 

1044 

1 0 « 2 0 5 


ASRP 

RK 

»SET JNTC PROPER FCvSlTIPN 

295 

1046 

1 0^005 


RPRP 

R6 


296 

1050 

1 06005 


RHRB 

R6 


297 

1062 

0 0 0 0 5 


RfR 

R R 


298 

1054 

006005 


RDR 

R 6 


299 

1056 

006005 


RPR 

R 6 


300 

1060 

1 10561 
000010 


MP yp 

R''^ 10 CR 1 ) 

JSET NEW PEN/PAR 

301 

106 4 

000435 


BR 

TlSTAT 


302 



t 




303 

1066 

^ 1271 \ 

000005 

S^P? 

Hpyp 

^KCKCR, (R1 1 

IPET LAST CPMCsSKP 

304 

1072 

^»12702 
00001 0 


MP y 

# 6 , ,R 2 

fSFT CNPO 

305 

1076 

000414 


0 P 

sxppsp 

JGO SET CCUNT ANC EXEC 

306 

1 1 00 

112711 

000006 

B5Pf 

Mpyp 

^*°SPR , (Rl 1 

ISET LAST CBMC*PSP 

307 

1 1 04 

012702 

«»i00t2 


Mpy 

« 1 0 , , R 2 

?SET CN^d 

308 

1110 

032737 

01/0042 

1 72620 


BIT 

i»“OT + RwS, 0 #^TS 

iTEST IF AT BCT 

309 

1 116 

r» 0 1 4 0 4 


BF3 

5 K P q P 

IPRANCF IF NOT 

310 

1 1 20 

^1^363 

0 0 . 0 0 0 4 
000006 


Mpy 

4fR31 ,6fR3) 

?RE3ECT CMBC PETLPK RFC COUNT 

311 

1126 

00041 4 


BR 

TI:ST4T 

*SFT STATUS AND EXIT 

312 

1130 

016367 

00e"0»‘4 

1 7S726 

SKPBSP S 

Mny 

4 fR.ll ,PRC 

rPET RECCRO COUNT 

313 

1 , 1.36 

"06467 

1 76722 


NFG 

PRC 


314 

1142 

"04767 

1 77060 


,rsR 

pr ,GC! 

;G0 EXECUTE C^mc 

315 

1146 

0137«3 

1 72524 
000006 


MPy 

<»i»0TPRC,6fR33 

tSET RESIOUF RFC COUNT 

316 

1154 

00K463 

0 H 0 0 0 6 


MFQ 

6 f R3) 
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C V , ^ T 


i:?-.?EP-72 pagp < + 


217 * 


218 

1 1 6^' 

1 72 

777717 

TUSTATi 

M7 VR 

17(911,92 

IGET PEKi/PAF 

219 

1164 

' 1 1 1 7 1 


M 7 v R 

(Rn,Pl IGET LAST CMMR 

22e 

1 1 66 

77737^ 


SWAB 

R2 


221 

1 t7P 

f? 5 r? 2 1’' 1 


BTvS 

R 2 ^ R 1 

jSFT PF^< ANiP PAR 

222 

1 172 

7 137^*2 

1 72577 


MOV 

1»*MTS , R2 


222 

1 1 76 

<’32 772 

731777 


RT T 

niCRF + PAFARLFiRa 

JTEST STATUS FOR ERROR 

224 

1202 

701472 


BFU 

STATl 

yPRAKPF IF K<OKE 

225 

1,204 

752771 

i f ^ f * n 


8TS 

*< 1 0 0 0 0 0 . R 1 

»?ET FSR PIT 

226 

1217 

732772 

702770 

”01 4r^2 

stati ? 

BIT 

^FCT , R2 

fTFST IF POT 

227 

1214 


Bf‘Q 

S T A T 2 

JBRANCF IF A<OT 

228 

1216 

752/71 
p (1 10 7 0 


RTS 

# 1 0 7 0 , R 1 

*SET ECT PIT 

229 

1222 

732772 

700042 

STAT2* 

BT T 

7RGT+RWS?R2 

jTEST IF AT BPf 

230 

1226 

701472 


Hf"Q 

S T A T 3 

jPRANCh IF KQT 

231 

1237 

'’527'M 

7M7470 


HTS 

*407,R1 

ISFT PCT PIT 

232 

1234 

732772 

747070 

STAT3f 

BIT 

^itFCF , R2 

ITEST IF PDF 

233 

1247 

701 472 


BFQ 

S T A T 4 

rPRAMCF IF KOT 

234 

1242 

752771 


RTS 

^207^R1 

JSET FCF PIT 



7 i/1 7 2 7 7 





335 

124« 

742772 

STAT4t 

RTC 

77753 *R2 

ICLFAR AL!. but WRl AND 79CH BITS 



1 77753 





336 

1252 

707372 


3 WAR 

R2 


237 

1254 

f A rt g rji ^ 


RTS 

R2,P1 

?SET WRl AND 7»9 TRACK 

238 

1256 

7171*3 
r« 0 ,0 p 01 2 


MHV 

R1 .2 CP31 

irfturn status 

339 

1262 

70741 4 


RR 

c r R .1 

»EXTT 

240 



1 




341 



1 




34? 



1 




243 

1264 

704/6/ 

1 /*576 

Cl 08Ef 

JSR 

PP / TNTT 

jTMTT CHECK ON DEVICE 

244 

1277 

1 7*761 

1 77770 


Cl. RB 

- 1 0 f R n 

ICLEAR PPFN FLAP 

1 ^ K 

1274 

'’04767 

1 77466 


JSR 

PC..FCFCK 

ITF LAST CHFO WAS WRITE, WRITE 3 

246 

1307 

704767 

1 774*2 


.TSR 

PC ^FCFCK 


347 

1304 

70^76/ 

1 774*6 


JSR 

PC ,FnFCK 


348 




.TFHF 

0 V R R w n 


349 



? 




250 



; 

1*53116 2 

8*528 TNSTFA7 PF 

PHD IF nuTPlT 

351 



1 

HP SKIP 

jr FNP PF FTtF 

IF INPUT 

3 52 



# 




353 




C P P 

(R n ,*WRITE 

jTF LAST CHMO WAS WRITE 

354 





C I . C S E 1 


355 




HPV 

*1 0 . ^R2 

pTSSLF 2 PSPS 

356 




MOV 

^-1 ,RRC 
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CV.MT 


MACPO vr0^wM i3-.SEP*72 03*00 P4GF !♦ 


357 




MOVB 

#BSPR, (Rt 1 

}THTS is 80LEUY FCR IKT EPR CMK 

358 




JS« 

PC »nc 


359 




MOV 

1^10 , #R2 


360 




B? 

CUC?E? 


361 



1 




362 



Cl OSEl 1 

BTT 

#FCF,««mt5 

}SKTP TO POP UNLESS ALRFAOY THER 

363 




BNE 

CLC6E3 


364 




MOV 

*6 , ,R? 


365 




CUR 

BRC 


366 




MOV 

*1?KPR, (R1 1 


367 



CLOSE?} 

ISR 

PC ,GO 


368 




,ENOr 



369 

1310 

004767 

177424 

CL0SE3} 

JSR 

PC ,FWNOC 

}TSSUE OISAPUFO RfcD 

370 

13H 

000167 

1 76642 

CCMJj 

vJMP 

STMOCM 


371 



1 




372 



} 




373 



1 




374 



1 




375 

1320 

013746 

000044 

IMH* 

MOV 

4*44 ,f(SPl 

}SAVE RFGS 

376 

1324 

004636 


JSR 

R6,4C9P)+ 


377 

1326 

016700 

17*446 


MOV 

MT ,R0 

}GFT CCP ADOR 

378 

133? 

0 1 6 7 0 1 
1765?? 


MOV 

LAST AT, PI 

IGFT LCMMO VECTOR AOOR 

379 

1336 

016003 

000002 


MOV 

,R3 

}GET SF F^‘C BLOOK ADDR 

380 

134? 

01?706 

1 7?5?2 


MOV 

#vTC »R5 

iadoR of ommo rfg 

381 

1346 

04?7 1 5 
030100 


BTC 

«t00, fR5) 

lOTSAPUF OEVICE INTERRUPT 

382 

135? 

013702 

1 7?5?0 


MOV 

«*MT3,R? 

IGET STATUS OF OEVICE 

383 

1356 

1 06267 

1 76465 


IWCP 

I*' tfnp 

>SFT TNT flag 

384 

136? 

032702 

100200 


BIT 

*TL0*MXM,R2 

lOHFCK iliegal cmmo. ncneyist cc 

385 

1366 

001404 


BFQ 

IM1 

IPRANCP IF NOT 

386 

1370 

010246 

IKTFl 

MOV 

R2,-C6P1 

lOISPLAY STATUS AND DIAGNOSE 

387 

137? 

010746 

001432 


MOV 

Wl432»-fSP) 

IFATAL FRROR^MAG TAPE 

388 

1376 

000004 


T0T 


} ABORT 

389 



} 




390 

1400 

1 06767 
176446 

IKTl } 

TSTB 

TOMMO 

}CHFCK TF TMIS UAS A RETRY 

391 

1404 

001 433 


BFQ 

tM3 

IPPANOF IF NOT 

392 

1406 

1 00007 


BPL. 

INT? 

iRRANOf if fas not PSP OF RETRY 

393 

1410 

006002 


Cl R 

R2 


394 

1412 

< 5670? 

1 76434 


BTSB 

TO^-MO.R? 

}GET OMMp 

395 

1416 

1 06467 

1 7*4 30 


NFGB 

TOM^O 

iSETwNCT PSP 

396 

142? 

000167 


JMP 

GOA 

IGO TRY AGAIN 


17 ic 5 7 d 

397 I 
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CV,VT yACRC vn04*t4 13-SEP»72 PAGF 1 + 


298 

1426 

032702 

IN^T 2 * 

BIT 

t<nG! +PTF*rRF+PAF 

,R 2 iTF«T TF EPRfR THIS TIME 



034400 





299 

1432 

0 4 6 3 


3PQ 

INT7 

» BRANCH JF K^QT 

4?!e 

1434 

00K?«7 

176414 


PC 

RFTRY 


4^1 

1 4 4P! 

001736 


iHiE 

TM 6 

^BRANCH IF TO TPV AGAIN 

402 

1442 

03270? 

004707 


BTT 

«BGL ,R 2 

|TF ERRseiUS GRANT lATF 

4 03 

14 4 6 

071360 


fP’E 

T j. ^ f '• 

i ^ ) r 

« « A r* i « i 1 

j 1 0 r A I u. 

404 

145.:^ 

1 062''7 

176377 


PX6 

ERRSj!| 

JSFT FPPCP flag 

406 

1454 

03271 6 


BIT 

»4,fR5) »TF WRITf po UFEPF, ISSUF ACTTCN DTAG 



000004 





406 

146^ 

01-jl 460 


BFQ 

P T7 


407 

1462 

010246 


wny 

R2f-CSPl 


408 

1464 

012746 

0 ■/’ 0 4 1 2 


(Any 

«412,^CSP1 


4 09 

1479! 

000004 


Ii2T 



410 

1472 

0 00443 


BR 

P^ T 7 

PGQ TC SPFCIFTC routine 

411 



1 




412 

1474 

032772 

034407 

IKT3! 

BTT 

«PGL + PTF + PAF*Cf?F 

,R2fCHEr!< IF FRRCP 

4 13 

1 SgP' 

001440 


HFQ 

P T7 

yRPAVfl, IP ^OT 

4 14 

1602 

1 2271 ^ 


CMPR 

0SKPR, (Rl 1 

^BRANCH IF SKIP CR BSP 



00P005 





416 

1 6 06 

001424 


R F Q 

T4 


416 

1610 

12271. 1 
000006 


r.MpR 

#«SPR, CRi I 


417 

1614 

0 014 2 1. 


BFQ 

P T 4 


418 

1616 

016767 

1 76334 

1 7633? 


Mn y 

TP YTNT, retry 

»SET retry count 

419 

1624 

03271 6 

0 0 0 012 


HIT 

#12, CR51 

JTF CHNO IS WRITE 

420 

1630 

071 022 


BNE 

I K T 6 


421 

1632 

05271 6 
0700 1 0 


BIS 

#1 ? , CR51 

iTRV WRTTF KITH LONG GAP 

422 

1636 

111567 

1 76310 

IK'TfiS 

MH VR 

(RSI ficMMn 

jsave cmho 

423 

1642 

^ 12702 
000012 


M n V B 

#ie,,R2 

*SET IF BSP 

424 

1646 

' 12 7 0 7 

1 77777 

1 72524 


MOV 

1 , /ii^MTBPC 

01,1 N'T pp 1 

425 

1 654 

0 0016 7 

<76602 


,T^^P 

Gr2 

jGO EVErUTF 

426 



} 




427 

1660 

03270.2 

040740 

IM4: 

BTT 

#'^CF+R0T^R2 

iTF F.CF OP BOT 

428 

1 *^64 

0 7 1 ? 3 6 


M P 

rM7 

•SKTP CR PSP TS CONE 

429 

1 666 

07*^737 

1 72524 


T.ST 

f»#0TBRC 

jTF COLN'T EXHAUSTFD 

430 

1672 

00 1 4,03 


BFQ 

P T7 

sTS DCNF 

431 

1674 

111502 


Mpyw 

fP5I,P2 ;PLSF SFT UP fV^O 

432 

1676 

030167 

176467 


JMP 

Gr2 

jrONTTM.'F SKIP PR BSP 

433 



t 
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rv.i 


MACPO VC04-14 

13-SHP-72 

03:00 PAGF 1+ 



434 

160? 

1 f^6e67 

INT7: 

Cl. HB 

TCHk^O 

?CtFAR 

RETRY TNCICATQRS 



1 7^244 






435 

16K6 

1 i;a <= (7 « 7 


Cl RR 

rftry 





1 7^242 






436 

161? 

P 1 6 7 0 7 


M fi V 

I^ TRF.T,PC 

JCO TC 

SPFCTFTC RCUTIKE 



^ 7^232 






437 



} 





438 



} 





439 


0 000^1 ' 

\ 

.FNH 





CV.FT 

HACPC VO04 

• < 4 

13-SEP.72 '13:00 PAGP i + 



SYypOL 

taplp 





ABCRT 

000700R 


AHEX a 0000fi0 

POL a 

004000 

EOT = 

0 '■’! 0 4 ^ 


RPC V1P0064R 

PSP 

001 1 00R 

eSPR a 

0 P t'i P 0 ft 


BTE a 000400 

rM7P a 

000020 

CLOSE 

00t?64R 


Cl OSF.3 001310R 

n.nsj 

000370R 

CMA 

0 P P! 0 6 ? R 


C^MD 3 000016 

COM.? 

001314R 

ORE e 

020P-7P 


CUR a 000200 

OFN a 

060000 

CENF » 

00 014 0* 


EOF' a 0 4 0 0 0 0 

ececk 

000766R 

EOFCKI 

0PP776R 


EOEH a 000003 

EOT a 

0f72000 

ERR s 

1 0 O'! 0 0 0* 


E R R S K 10 0 0 0 5 3 R 

G A P S D K a 

0 1 0000 

GO 

0^0?1^R 


G0A 000220R 

GOB a 

000001 

GDI 

0P0244R 


G02 000262R 

C03 

000304R 

lUC s 

1P0P/P 


TN'IT 00il066R 

ITX 

000160R 

IM a 

0P01 O'’ 


PJTENR 002047R 

IK'TF 

001 370R 

iktf 



T^'TT 00g360R 

INTPFT 

0O70050R 

I^T1 

0PI 40PR 


fKiT? 001426R 


001474R 

INT4 

0'’1‘=6^R 


I^!T6 001636R 

TNT7 

0016'0?R 

LASTAT 

0 P fcl 0 ft p R 


LCMMD 0P2026R 

PT 

000000RG 

FTBRC a 

172P24 


MTC a 172''2? 

PTCMA a 

172626 

yTD a 

i7?«30 


MTEXIT 002226R 

P TR0 3 

172532 

MS a 

172*^27 


^1T,^JAV 00|^P14R 

NYM a 

0(70200 

cffl 

0P0710R 


QPNEi.G 000016R 

P AF a 

010000 

far c 

004000 


PARS a 002010 

P AROEN 

0O1024R 

FC al!;c?f70007 


prwR a 012000 

P S a 

177776 

RFAr a 

0 0 00 01 


RTAOY 002326R 

RFAOYX 

0O0366R 

REAC Y1 

000314fi 


RETRY 00e054R 

PI F a 

001000 

KI»lO a 

000004 


R'/NO 002726R 

RUNOC 

0(7074(?<R 

fil^KCX 

0 0 0 7 c 4 R 


RWS a 000002 

P W U B 

000000 

R0 a 

7. 0 0 0 0 0 0 


R 1 a *7 0 (7 2 0 2 1 

R? aX202022 

R3 a *4 pijpr^pgi 3 


R4 a»/002024 

PF aY0<7000K 

S D k N a 

0000 J 0 


SPUR a 

STMCOY 

0001 62R 

SKp 

e01066R 


SKPRSP 001130R 

SKPP a 

000005 

SP a?!;00 0006 


SPEC 022612R 

SPEC J 

000364R 

SPEC! 

O'^0*=62R 


SPFST a 402021 

S ® L S T a 

000006 

stati 

0 0 1 2 1 0 R 


STAT2 001222R 

STA73 

001234R 

STAT4 

0012469 


TCMMC 002052R 

TPANO 

0O0450R 

TRA^ S 

000374R 


TPAWX 002674R 

TP API 

00047OR 

TPAK2 

0P0ft00R 


TRAM3 002646R 

TPAP4 

0O0670R 

TRAK5 

0f>0ft 1 fTlR 


TRANS 002P32R 

TPA’' 7 

0O0466R 

TRYONT 

003056R 


TUR a 00020.1 

TI'STAT 

0 0 1 1 6 0 R 

L^'IT a 

003400 


WFOF 0010 12R 

W P 1 T F a 


kRL a 

00 00 0 4 





. APS. 

0 0 0 0 0 0 

000 





001^16 

0i21 




ERRCPS 

cpTFr TFr 1 

0 




FREE CORE? lRe’9, 

WORDS 




»L.P!<^T!MT 
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6 . 1 MAGTAPE DRIVER LISTING V00)2f4A 

jCOPYPIGHTj- digital E(?UIPmENT CORP, , MAYMARD, MASS, 

I 1971 

• 

JvERSIOM ^J0:- va04A 

? 

.TITLE MT 
,GL08L ^^T 

00005^0 ,CSECT 

000000 R0s%0 'DOS PTR 

000001 R1»%1 jLCMMD PTR 

000002 R2a%2 jCMMD RF$ 

000003 R3*%3 jSP FlJ^4C BLOCK PTR 
000004 R4s%4 ? 

000005 R53%5 jSCRATCH 

000006 3P»%6 
000007 PC«%7 
? 

J 

• 

17?5?0 MTSS172520 jTMIl STATUS 

179522 MTC»1 72522 yTMii COMMAND 

172524 MT8RC-172524 itMU BYTF/RECORD COUNTER 

172526 MTCMA»172526 jTMll COPE MEMORY ADDRESS 

172530 MTO5172530 »TMU DATA BUFFER 

172532 MTRDS172532 |TM11 READ LINES 

i 

\77776 PSsl77776 jPPOCESSOR STATUS 

J 

j 

•MTS PITS 
I 

100000 ILC®100000 
040000 EOF*400P0 
020000 CRES20000 
010000 PAE»10000 
<^04000 9GL“4000 
002000 EOT»2000 
001000 RLE»1000 

^00400 ,gTEa400 
000200 NXMa200 

000100 SELRs 100 
000040 8OT»40 
000020 CH79*20 
000010 SDWNslO 
000004 WRL®4 
000002 Ri.‘lS«2 
000001 TUR*1 
000140 DENB«140 
000010 PARBal0 

|MTC PITS 

t 

100000 ERRalO0000 

M60000 DEN«60000 
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POWR»i0!?00 
Pi04<a0c>i PAR«4000 
003400 UNJIT«3400 
000200 CUR«200 
000100 INT»100 
000060 A0EX«60 
000016 CMMD«16 
000001 G08«l 
; 

iMTRD BIT 
I 

010000 GAPSO^'sl0000 

t 

jCQMMANDS 

000000 RWUb0 
000001 reads! 

000002 RRITE*2 
000003 £0FMb3 
000004 RWDb4 
000005 SKPR*5 
000006 8SPRb6 

f 

I 

iTHIS is the device driver for the TM11/TU10 


1 


000000 

000000 

MT| 

.WORD 

0 

!BUSY indicator 

000002 

177 


.byte 

177 

mll general structure except op 

000003 

040 


.BYTE 

40 

fSPECIAL structure b MAG TAPE 

000004 

020 


.BYTE 

20 

IBUFFER SIZE a 512 BYTES 

000005 

360 


• BYTE 

IWTJ-Ht 

flNTERRUPT handler 

000006 

240 


.BYTE 

240 

fPRiO FOR INTERRUPT SERVICE 

000007 

000 


.BYTE 

0 

jNO OPEN ENTRY 

300010 

374 


.BYTE 

trans-ht 

ITRANSFER ENTRY 

30001! 

370 


.BYTE 

CIOSJ-MT 

yCLOSE ENTRY 

000012 

364 


.BYTE 

specj-mt 

fSPECIAL FUNCTION ENTRY 

000013 

000014 

000 

052140 

MT.HAHj 

I 

OPNFtGs 

.BYTE 

.RAO50 

0 

/mt / 


000016 

000 

.BYTE 

0.0. 0^0. 0.0. 0.0 

fSET BY OPEN ROUTINE. CLEAPED BY 


000017 000 

000020 £00 

000021 000 

000022 000 

000023 000 

000024 000 

000025 000 

000026 377 LCMHD? .BYTE - 1 , - 1 r - 1 , • 1 ,« t , • 1 , - 1 , -1 , |1 BYTE FOR EACH DEVIC 

000027 377 

000030 377 

000P'31 377 

000032 377 

000033 377 

000034 377 

000035 377 

000036 000 

000037 000 .BYTE 0.0, 0.0,0, 0.0.0 iDEK'/PAR FOR EACH DEVICE 
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00004P! 

000 





000041 

000 





00004J> 

000 





000045 

000 





000044 

0510 





00004P 

000 





000046 

000 





000047 

000 

INiTRNRj 

.ryte 

0 


000050 

000000 

INTRET: 

.WORD 

0 

fADDR FDR RET FROM INT HANDIER 

000052 

000 

TCMHD j 

.RYTE 

0 

ILAST CMMD SAVE UOCN FOR ERR REC 

000055 

000 

ERRSW* 

.BYTE 

0 

?SET BY ERR RECOVERY IF NOT RECO 

000054 

000000 

RETRY? 

.WORD 

0 

?retry count for error recovery 

000056 

177761 

TRYCNiT: 

.WORD 

-15. 

^INITIAL RETRY COUNT 

000060 

000000 

UASTAT! 

.WORD 

0 

fADDR IM LCMMD vector FOR INT HA 

000062 

000000 

CHA? 

.WORD 

0 


000064 

000000 

3RC? 

.WORD 

0 


000066 

016001 

000012 

IMITj 

MOV 

12(R0) ,R1 

fGET UNIT NUM 

000072 

^42701 

174377 


SIC 

«174377.Ri 

fCLR EXTRA BITS 

000076 

010137 

172522 


MOV 

ri,«#mtc 


000102 

000301 


SWAR 

Rt 


000104 

060701 


ADD 

PC.Rl 


300106 

062701 

177720 


ADD 

«LCMMD-.,RI 

fADDR IN LAST CMMD VECTOR 

000112 

012604 


MOV 

CSP)+.R4 

iSAVE return AODR 

000114 

012605 


MOV 

($?)♦, R5 

fSAVE ORIGINAL PC 

000116 

013746 

177776 


MOV 

P<?PS,«CSP) 

fSIMULATE INT CALL 

300122 

010546 


MOV 

R5.-(SP) 


000124 

013746 

000044 


MOV 

#^44, -(SP) 

fSAVE REGS 

000130 

004536 


JSR 

R5,#(SP)+ 


000132 

010446 


MOV 

R4,-(SP) 

fRESET CALLING PC 

000134 

010167 

177720 


MOV 

R1 .LASTAT 

iSAVE FOR imT handler 

000140 

004767 

000162 


JSR 

PC, ready 

fCHFCK IF UNIT READY 

000144 

105711 


TOTB 

(Rl) 

fCHFCK IF device INITIALIZED 

000146 

100034 


BPL 

INITX 

fBRANCH IF IS 

000150 

112761 
0001 4g 
00001 0 


MOVB 

tfDEMB, 10CRn 

fSET default DEMf800,PAR«OOD 

000156 

105011 


CLRR 

(Rl) 

jclfar non twtt state 

000160 

000207 

I^ITX? 

T 

STMCOM? 

RTS 

PC 


000162 

105067 

1 77665 

CURB 

ERRSW 

fCLEAR ERROR SWITCH 


000166 

105767 

177655 


TRTR 

IMTFNR 

fBRANCH IF INT RET 

000172 

001005 


B'lE 

MTEXIT 


000174 

105760 

177775 


TSTB 

-3(R0) 

fBRANCH IF CALLED FROM QUEUE 

000200 

001002 


BNE 

mtexit 
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000202 

062706 

000020 


ADD 

«20,SP 

^REMOVE PC, PS AND REGS 

000206 

105067 

177635 

MTEXlTs 

CLRB 

INTFN8 


000212 

000170 

000014 

1 

} 

JMP 

4l4fR0) 

;C0MPUETI0N EXIT 

000216 

012667 

177626 

I 

J 

GOl 

HDV 

(SP)+, INTRET 

fSAVE INT RETURN AOOP 

000222 

016737 

177634 

172526 

GOAS 

MDV 

CMA,0#MTCMA 


000230 

016737 

177630 

172524 


MOV 

8RC#<»#MTBPC 


000236 

121127 

000002 


CMP8 

CRl)f«WRITE 

jCHECK if this is a WRITE 

000242 

001007 


BNE 

G02 

jbranch if not 

000244 

032737 

000004 

172520 

GOl t 

BIT 

#WRL»«#MTS 

ICHECK IF WRITE LOCK ON 

000252 

001403 


BEQ 

G02 

^BRANCH IF NOT 

000254 

004767 

000034 


J5R 

pc,readyi 

TISSUE ACTION MSG 

000260 

000771 


8R 

GOl 

fGO TEST IF LOCK STILL ON 

000262 

004767 

000040 

G02S 

JSR 

PC, ready 

iCHECK IF DEVICE READY 

000266 

156137 

000010 

172523 


8ISR 

l0(Rn ,«#HTC+1 

|SET DEN AND PAR 

000274 

052702 

000101 


BIS 

*«INT + G0R,R2 

ISET INT ENB AND GO 

000300 

110237 

172522 


M0V8 

R2,0#MTC 

fISSUE INSTRUCTION 

000304 

013746 

000046 

G03S 

MOV 

fl*<46,-(SP) 

^RESTORE REGS 

000310 

004536 


JSR 

R5, 0(SP)+ 


000312 

000002 

1 

RTI 


JRETURN TO INTERRUPT 

000314 

016746 

177474 

1 

READYl J 

MOV 

MT,NAM,-(SP) 

TISSUE ACTION DIAG • 

000320 

012746 

000402 


MOV 

#402, -(SP) 

JDEVICE NOT READY 

000324 

000004 


lOT 



000326 

032737 

000100 

172520 

READY* 

BIT 

#selr,##mts 

fTEST IF DEVICE READY 

000334 

001767 


BEQ 

READY! 

jBRANCH IF NOT 

000336 

032737 

000013 

172520 


BIT 

#tur+rws+sdnn. 

e#MTS 

000344 

001004 


BNE 

READYX 
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00034fi 

032737 

010000 

175532 


BIT. 

#OAPSDNf P^MTRO 



000:?54 

001757 


BEQ 

READYl 



000356 

000207 

i^EADYVs 

IMTJ: 

RTS 

PC 

jRETURN TO CALLER 


000360 

000167 

000734 

JMP 

INTH 




000364 

000167 

000222 

SPECJs 

JMP 

SPEC 



000370 

000167 

CLOSJ? 

JMP 

CLOSE 




000670 

• 

f 





000374 

004767 

177466 

t 

T9ANSS 

J3R 

PCfINiT 

yINIT CHECK DEVICE 


300400 

016067 

000006 

177454 


MOV 

6CR0) pCMA 

iSET BUFF AODR 


000406 

0J6067 

000010 

177450 


MOV 

10(R05 ,BRC 

jSET WORD COUNT 


000414 

006367 

177444 


ASt 

0RC 

jCVT TO BYTE COUNT 


300420 

016002 

000012 


MOV 

12CR0),R2 



000424 

042702 


BIC 

#1777l3iR5 

?CLR all but read AND ADDR EXT R 


177713 






000430 

032702 

000004 


BIT 

i4,R2 

ICHECK INPUT/OUTPUT 


000434 

001405 


BEQ 

TRANO 

^branch if output 


000436 

115711 

000001 


MOVB 

#READ» (Rl) 

?SET LAST CMMDSREAD 


000442 

162702 

000002 


8L10 

#2,P2 

?SET UP READ CMMD 


000446 

000414 


BR 

TRAN2 



000450 

032757 

002000 

172520 

TRA^O ! 

BIT 

#eot,®#mts 

fCHECK IF AT EOT 


000456 

001404 


BEQ 

IRANI 

^BRANCH IF NOT 


000460 

016060 

000010 

000016 


MOV 

l0(R0),i6(R0) 

f RETURN WORD COUNT 


000466 

(^00635 

TRAN7? 

BR 

SIMCOM 

^REJECT CMMD - EXIT 


000470 

115711 

000002 

IRANI 1 

MOVB 

#WRITE, (Rl) 

|SET LAST CMMD 8 WRITE 


000474 

065702 

000004 


ADO 

#4,R2 

>8ET UP WRITE CMMD 


000500 

004767 

177512 

TRAN2! 

JSR 

PC, GO 

»60 INITIATE I/O 


000504 

013702 

175524 


MOV 

P«MT8RC»R5 



000510 

121127 

000001 


CMPP 

CR1)»«READ 

^COME HERE AFTER INT ERR 

CNK 

000514 

f%n A 

■ * V *■ w 


8ME 

T R A N 6 

^branch if not read 


000516 

032737 

040000 

175520 


BIT 

«E0F,P#MTS 

rIF EOF, SET INIT CNT IN 

RESIDUE 
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000524 

001402 


BEO 

TRAN6 


000526 

016702 

177332 


MOV 

BPCfR2 


000532 

006202 

TRAM6S 

A3R 

R2 ICHECK 

IF ODD BYTES SHORT REC 

000534 

103004 


0CC 

TRAN3 

^BRANCH IF NOT 

000536 

013705 

172526 


MOV 

• <#MTCMA,R5 

IPUT NUlt IN NEXT BUFF POS 

000542 

105015 


CLR8 

(R5) 


000544 

005202 


INC 

R2 

GROUND UP WORD COUNT 

000546 

001402 

TRAN3S 

BEQ 

* + 6 

^BRANCH IF NO RESIDUE 

000550 

062702 

100000 


BIS 

#l00000f R2 

UNSURE NEG WORD COUNT 

000554 

032737 
00 1000 
172520 


BIT 

«RLF,6#MTS 

KHECK IF LENGTH ERROR 

000562 

001402 


BEQ 

TRAN4 

^BRANCH IF NOT 

000564 

105267 

177263 


INC8 

ERRSW 


000570 

010260 
0000 1 6 

TRAN4S 

MOV 

R2, 16CR0) 

jRETURN RESIDUE WORD COUNT 

000574 

105767 

177253 

TRANX! 

TSTR 

ERRSW 

^BRANCH IF NO ERRORS 

000600 

001403 


BEQ 

TRAN5 


000602 

052760 

100000 

000012 


8TS 

4100000, 12CR01 

ISET ERR BIT 

000filP! 

000726 

TRAN5* 

J 

SPEC* 

8R 

TRAN7 

ITAKE DONE EXIT 

000612 

004767 

177250 

J3R 

PC,INIT 

fINIT CHECK DEVICE 


000616 

016003 

000002 


MOV 

2(R0),R3 

;GET FUNC BLOCK ADDR 

000622 

111305 


MOVB 

(R3),R5 »GET FUmC BYTE 

000624 

162705 

<^00001 


SUB 

4SPFST,R5 


000630 

100767 


BHI 

TRAMS 

^BRANCH OUT IF NOT 

000632 

022705 

000006 


CMP 

«SPLST,R5 

fSUPPORTEO FUNCTION 

000636 

103764 


8L0 

TRAM5 


000640 

122763 

000003 

000001 


CMPB 

43,1CR3) 

KHECK IF valid FUNC BLOCK 

000646 

101014 


BHI 

ABORT 

lABORT IF NOT 

000650 

006305 


A3L 

R5 


000652 

060705 


ADD 

PC,R5 


000654 

062705 

000006 


ADD 

43PECT-,,R5 


000660 

000115 

1 

JMP 

«R5 

;G0 TO PROPER SP FUNC ROUTINE 


000001 

i 

3PFST«1 





000006 

3PLST»6 




000662 

000412 

SPECT* 

BR 

OFFLIN 


000664 

000452 


BR 

WEOF 


000666 

00041 7 


BR 

RWj^n 
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000670 

000476 


BR 

SKP 


000672 

000502 


BR 

BSP 


300674 

000453 


BR 

PARDEN 


300676 

000530 

I 

6 R 

TUSTAT 


300701^ 

010346 

1 

aborts 

MOV 

R3,-CvSP5 

STSSUF 3P FUNC BLOCK BAD ABORT 

000702 

012746 

001433 


MOV 

#1433^-(SP) 

SWITH AOOR OF 3P FUNC BLOCK 

000706 

000004 

? 

OFFLIN; 

lOT 



000710 

004767 

000052 

JBR 

PC,EOFCK 

fWRlTE EOF IF NECESSARY 


300714 

105011 


CLRB 

(Rl) 

SSET LAST CMMO»OFFLINE 

000716 

112737 

000001 

172522 


MOV0 

«1,«»#MTC 

SISSUE DISABLED RWV 

300724 

000515 


8 R 

TUSTAT 

SGET STAT AND EXIT 

300726 

004767 

000034 

Ri^'NDs 

JSR 

PCjFOFCK 

fISSUE write EOF IF NECESSARY 

000732 

004767 

000002 


J3R 

pc^rwnidc 

SiSSUE DISABLED RWD 

000736 

000510 


0R 

TUSTAT 

SGET status and EXIT 

000740 

112711 

000004 

RWnDC s 

MOVP 

«RWD, (Rl) 

fSET LAST CMMDaRWD 

300744 

032737 

000042 

172620 


8TT 

#90T+RWS, 6#MTS 

Sis IT REWOUND 

000752 

^ i ^ 4 


0NE 

RWNDX jYES, e 

RANCH 

000754 

012702 

000016 


MOV 

«16,R2 

S ISSUE RWD 

000760 

000167 

177232 


JMP 

GO 


000764 

000207 

RWNDXS 

1 

eofcks 

RTS 

PC 


000766 

121127 

00001712 

CMPB 

(RDr^WRITE 

SIF last CMMD was WRITE 


000772 

001401 


8 FQ 

EOFCKl 

SBRANCH 

000774 

000207 


RTS 

PC 

lELSE RETURN 

000776 

012702 

000006 

EOFCKl : 

MOV 

#6,R2 

ISET CMHOaWRITE EOF 

001002 

0J2667 

177042 


MOV 

CSP)+, intret 

ISET INT RET AOOR 

001006 

000167 

177232 

t 

JMP 

GOl 

SGO EXECUTE 

001012 

112711 

000003 

# 

WEOFs 

M0V8 

«FOFM, (Rl) 

SSET LAST CMMD 

001016 

004767 

177754 


JSR 

PC, EOFCKl 

SGO EXECUTE WRITE EOF 

301v022 

000456 

» 

BR 

TUSTAT sAT ImT 

RET, GET STAT AND EXIT 

001024 

032737 

000020 

172520 

t 

PARDE^S 

BIT 

#CH79,#«MTS 

I IF 9 TRACK TAPE 


31 



001P»3!? 

001452 


BEQ 

TUSTAT 

^BRANCH (IGNORE NEW SETTINGS) 

001«^34 

016305 

000004 


MOV 

4(R3)^R5 

JGET NEW OEN/PAR 

001040 

^^42705 

176376 


SIC 

#176376, R5 

KLR EXTRA BITS 

001044 

106205 


ASRS 

R5 

|8ET INTO PROPER POSITION 

001046 

106005 


RORB 

R5 


001050 

106005 


RORB 

R5 


00105? 

006006 


ROR 

R5 


301054 

006005 


ROR 

R5 


001056 

006005 


ROR 

R5 


001060 

U0561 

000010 


MOVB 

R5,10(R1) 

fSET NEW DEN/PAR 

001064 

000435 

? 

3KPJ 

8R 

TUSTAT 


001066 

112711 

000005 

MOVB 

#SKPR, (Rl) 

fSET LAST CMMD«8KP 


001072 

012702 

000010 


MOV 

#8,,R2 

fSET CMMD 

001076 

000414 


BR 

SKPBSP 

»G0 SET COUNT AND EXEC 

001100 

112711 

000006 

9SPf 

MOVB 

#BSPR, (Rl) 

fSET LAST CMMD«BSP 

001104 

012702 

000012 


MOV 

#10., R2 

jSET CMMD 

001110 

032737 

000042 

172520 


BIT 

#bot+rws,##mts 

fTEST IF AT BOT 

001116 

00 1404 


BEQ 

SKPBSP 

fBRANCH IF NOT 

001120 

016363 

000004 

000006 


MOV 

4(R3),6(R3) 

fREJECT CMMD RETURN RFC COUNT 

001126 

0100414 


BR 

TUSTAT 

fSET STATUS AND EXIT 

001130 

016367 

000004 

176726 

SKPBSP* 

MOV 

4CR3),BRC 

»SET RECORD COUNT 

001136 

005467 

176722 


MEG 

BRC 


001142 

004767 

177050 


JSR 

PC, GO 

^GO EXECUTE CMMD 

001146 

013763 

172524 

000006 


MOV 

P#MTBRC»6(R3) 

JSET RESIDUE REC COUNT 

001154 

005463 

000006 

? 

tustatj 

NEG 

6(R3) 


001160 

116102 

000010 

MOVB 

10(R1),R2 

>GET OEN/PAR 


001164 

111101 


MOVB 

(R1),R1 ?RET last CMMO 

001166 

000302 


SWAB 

R2 


001170 

050201 


BIS 

R2,R1 

fSET DEN AND PAR 

001172 

013702 

172520 


MOV 

P#MTS,R2 


001176 

032702 

031000 


BIT 

#CRE+PAE+RLE,R2 

»TEST STATUS FOR ERROR 

00120? 

001402 


BEQ 

stati 

ibranch if none 

001204 

052701 

100000 


BIS 

#100000, Rl 

rSET ERR BIT 
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0f5i;?10 

032702 

002000 

3TATi J 

BIT 

»E0T,R2 

ITEST IF EOT 

•'« 4 ^ 4 A 

V i K * A ^ X ** 

.-9/^4 A f%r\ 

K 1** C 


BEQ 

ST AT2 

ibranch if not 

001216 

052701 

001000 


SIS 

*<1000#R1 

ISET EOT BIT 

001222 

032702 

000042 

3TAT2? 

BIT 

#B0T+RwS,R2 

iTEST IF AT BOT 

001226 

001402 


BEQ 

STAT3 

fSRANCH IF NOT 

001230 

052701 

C'00400 


BIS 

#400, Ri 

fSET BOT BIT 

001234 

032702 

040000 

STAT3! 

BIT 

#f:0F,R2 

ITEST IF EOF 

001240 

001402 


BEQ 

STAT4 

iBRANCH IF NOT 

001242 

052701 

000200 


BIS 

#200, R1 

ISET EOF BIT 

001246 

042702 

177753 

3TAT4J 

BTC 

# 177753 , R2 

ICLEAR ALL BUT WRL AND 79CH BITS 

001252 

000302 


SWAB 

R2 


001254 

050201 


BIS 

R2, R1 

I 8 ET WRL and 7,9 TRACK 

001256 

010163 

r5i00p02 


MTV 

R1 ,2(R31 

1 RETURN STATUS 

001262 

000414 

1 

* 

8R 

COMJ 

lEXTT 

001264 

004767 

176576 

CLOSES 

JSR 

PC, INIT 

lINIT CHECK ON DEVICE 

0012/0 

105061 

177770 


CURB 

»i0CRi 3 

ICLFAR OPEN FLAG 

001274 

004767 

177466 


JSR 

PC,EOFCK 

lIF LAST CMMD HAS WRITE, WRITE 3 

001300 

004767 

177462 


JSR 

PC,EOFCK 


001304 

004767 

177456 


JSR 

PC,FOFCK 


001310 

004767 

1/7424 


JSR 

PC,RWNOC 

1 ISSUE oisabled rwd 

001314 

000167 

COHJ* 

JBP 

STMCOM 



176642 

% 

9 

t 

9 




001320 

013746 

000044 

S 

• 

MOV 

9#44,-(3P) 

ISAVE REGS 

001324 

004536 


JSR 

R5,flCSp5+ 


001326 

016700 

176446 


MOV 

MT,R0 

IGET DOB AODR 

001332 

016701 

176522 


MOV 

LASTAT,R1 

IGET LCMMO vector ADDR 

0P1336 

^^16003 

000002 


MOV 

2CR0),R3 

IGET SP FNC block ADDR 

001342 

012705 


MOV 

#RTC,R5 

lADDR OF CMMD REG 

001346 

172622 

1714^7 4 K 

000100 


a T ^ 

^4r>n f 



P I C 

idisable device interrupt 


33 



0P51352 

013702 

172520 


MOV 

4«MTS#R2 

»GET STATUS OF DEVICE 

30l35fi 

105267 

176465 


IMCB 

intenb 

fSET INT FLAG 

0(^1362 

032702 

100200 


BIT 

«TIC'!'NxM,R2 

ICHEC'< ILLEGAL CMMO, NONEVIST CO 

001366 

001404 


BEO 

inti 

^BRANCH IF NOT 

001370 

010246 

INTF. 

MOV 

R2,-CSP) 

^DISPLAY STATUS AND DIAGNOSE 

001372 

012746 

001432 


MOV 

4t432»«(SP) 

IFATAL ERROR-MAG TAPE 

001376 

000004 

J 

IMti: 

lOT 


lABORT 

001400 

105767 

176446 

T5TB 

TCMMD 

»CHECK IF THIS WAS A RETRY 


001404 

001433 


BEQ 

INT3 

I 8 RANCH IF NOT 

001406 

100007 


801 

INT2 

^BRANCH IF WAS NOT BSP OF RETRY 

001410 

005002 


CLR 

R2 


00141? 

156702 

176434 


8IS8 

TCMMOf R2 

?GET CMMD 

001416 

105467 

176430 


NEGB 

TCMMD 

ISET-NOT BSP 

001422 

000167 

176574 

t 

INT2: 

JMP 

GOA 

|GO TRY AGAIN 

001426 

032702 

034400 

BIT 

#BGI + BTF4-CRE+pAE 

>R2fTEST IF ERROR THIS TIME 


001432 

001463 


BEQ 

INT7 

(BRANCH IF NOT 

001434 

005267 

176414 


INC 

RETRY 


001440 

001036 


8NE 

INT6 

(BRANCH IF TO TRY AGAIN 

001442 

032702 

004000 


BIT 

#BGI.,R2 

(IF ERR*BUS grant LATE 

001446 

001350 


BNE 

intf 

(IS FATAL 

001450 

105267 

176377 


INCB 

ERRBW 

(SET error flag 

001464 

032715 


BIT 

44, (R5) fJF WRITE OR WEOF, ISSUE ACTION DIAG 


000004 





001460 

(^01450 


BEQ 

INT7 


001462 

010246 


MOV 

R2,-CSP) 


001464 

012746 

000406 


MOV 

4406, -CSP) 


001470 

000004 


lOT 



001472 

00C1443 

j 

I^T3s 

8R 

INT7 

(GO TO SPECIFIC ROUTINE 

001474 

032702 

030400 

BIT 

4BGL+8TE+PAR+CRE 

,R2(CHECK IF ERROR 


001500 

17101 440 


BEQ 

INT7 

(BRANCH IF NOT 

001502 

122711 

000005 


CMPR 

4BI<PR, (RU 

(BRANCH IF SKIP OR BSP 

001506 

001424 


BEQ 

INT4 


001510 

12271 1 
000006 


CMPB 

4BSPRi (RU 


001514 

■001421 


BEQ 

IMT4 


001516 

016767 

1 76334 
176330 


MOV 

TRYCNT, RETRY 

(SET RETRY COUNT 
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001524 

032715 

PI00012 


SIT 

«12, (R5) 

>IF CMMD IS WRITE 

001530 

001002 


8NE 

INT6 


001532 

052715 

000010 


813 

U 1 0 f CR55 

?TR¥ WRITE WITH LONG GAi 

301535 

111567 

176310 

INT6J 

MHVR 

(R5)rTCMMD 

?SAVE CMMD 

001542 

112702 

300012 


MOVB 

#10.#R2 

ISET UP BSP 

M nt i S £ 

It' * " •<? »■■ 

■ * t / >/ r 

177777 

172524 


n \y 

••• f 

-M— « AMuTQBr 

^ v^OuN 1 4 


001554 

000167 

176502 

1 

IMT4| 

J3P 

G02 

IGO execute 

301560 

032702 

040040 

BIT 

#E0F+BCT,R2 

|IF EOF OR 0OT 


001564 

001006 


BNE 

INT7 

jSKIP OR BSP IS DONE 

001566 

005737 

172524 


T3T 

i»«mtbrc 

flF COUNT EXHAUSTED 

001572 

001403 


BEQ 

INT7 

»IS DONE 

001574 

111502 


MOVB 

(R5),R2 lELSE 

SFT up CMMD 

0P1576 

000167 

176460 


JMP 

G02 

yCONTiNUE SKIP OR BSP 

001602 

105067 

176244 

INT7; 

CLRB 

tcmmd 

iCLFAR RETRY INDICATORS 

001606 

105067 

176242 


CLR8 

RETRY 


001612 

016707 

176232 

f 

MOV 

intpet,pc 

rGO TO SPECIFIC ROUTINE 


000001 

t 

.END 
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000fi00 ERROPS 


ABORT 


000700R 

AOEX 

B 

000060 

• bgl 

B 

004000 

BOT 

B 

000040 

PRC 


000064R 

BSo 


001100R 

BSPR 

B 

000006 

PTE 

S 

000400 

CH79 

B 

000020 

CLOSE 


00i264R 

CLOSJ 


000370R 

CHA 


000062R 

CHMD 

B 

000016 

COHJ 


001314R 

CRF 

S 

020000 

CUR 

S 

000200 

DEN 

8 

060000 

demb 

a 

0B0140 

EOF 

a 

040000 

EOFCK 


000766R 

EOFCKl 


000776R 

EOFM 

a 

000003 

FOT 

8 

002000 

ERR 

s 

100000 

ERP8N 


000053R 

garsdn 

8 

010000 

GO 


000216R 

GOA 


000222R 

GOB 

S 

000001 

GOl 


000244R 

G02 


000262R 

G03 


000304R 

TLC 

B 

100000 

INIT 


000066R 

TNITX 


000160R 

int 

8 

000100 

INTEMB 


000047R 

TNTF 


001370R 

TNTH 


001320R 

INTJ 


e00360R 

INTRET 


000050R 

TNTl 


001400R 

INT2 


001426R 

TNT3 


001474R 

TNT4 


001560R 

INT6 


001536R 

INT7 


001602R 

lastat 


000060R 

LCMHD 


g00026R 

MT 


000000PG 

HTBRC 

B 

172524 

HTC 

B 

172522 

mtcma 

a 

172526 

HTD 

a 

172530 

MTEXTT 


000206R 

MTRO 

B 

172532 

MTS 

B 

172520 

MT.NAM 


000014R 

NXH 

8 

000200 

OFFLTN 


000710R 

OPNFLG 


000016R 

PAE 

3 

010000 

PAR 

8 

004000 

PARB 

8 

0000 1 0 

PARDEN 


001 024 R 

PC 

■X000007 

POWR 

B 

010000 

PS 

8 

177776 

READ 

8 

000001 

ready 


000326R 

READYX 


000356R 

READYl 


000314R 

RETRY 


000054R 

RLE 

3 

001000 

RWD 

8 

000004 

RWND 


000726R 

PWNDC 


000740R 

RWNDX 


000764R 

RWS 

8 

000002 

RRiJ 

8 

000000 

R0 

8%000000 

Rl 

8ii:00000l 

R2 

3' 

5J000002 

R3 

■%000003 

R4 

»^000«04 

R5 

aX000005 

SOWN 

8 

000010 

SELR 

B 

000100 

SINCOM 


000162R 

SKP 


001066R 

SKPB’^P 


001130R 

SKPR 

B 

000005 

BP 

8X000006 

SPEC 


000612R 

SPECJ 


000364R 

SPFCT 


000662R 

SPFST 

8 

000001 

SPLST 

S 

000006 

STATl 


001210R 

8TAT2 


001222R 

STAT3 


001234R 

STAT4 


001246R 

tcmmo 


0R0052R 

TRANO 


000450R 

TRANS 


000374R 

TRANV 


000574R 

TRANl 


000470R 

TRAN2 


000500R 

TRAN3 


000546R 

TRAN4 


000570R 

TRAN5 


000610R 

TRAN6 


000532R 

TRAN7 


000466R 

TRYCNT 


000056R 

TUR 

8 

000001 

TUBTAT 


001160R 

UNIT 

8 

003400 

WEOF 


001012R 

WRITE 

B 

000002 

WRL 

8 

000004 

• 

8 

001616R 
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LPll LINE PRINTER DRIVER 


The line printer driver provides the basic, device specific functions 
for the PDP-11 Line Printer (LPll) or the Centronics lOlA. The driver 
accepts a block of any specified length (48-word standard) and feeds 
it to the printer. The block may contain any number of lines (line 
feed characters) or pages (form feed characters) to be printed in a 
single call to the driver. 

The line printer driver consists of two sections; the fixed 
driver table and the driver code. The driver table gives the follow- 
ing information: 

• Line printer facilities; 

Single user 
Output only 
ASCII only 
Non-file structured 

• Standard buffer size of 48 words 

• Entry points to the various line printer function routines. 


The detailed description of the functions of the line printer 


points should be noted; 


1. Both the OPEN and CLOSE functions cause a skip to head of 
form (a form feed is printed) on the printer. 

2. The transfer (and interrupt) function (s) transfer as many 
characters as possible to the line printer with the line 
printer interrupt tem.porarily disabled. This transfer ter- 
minates when one of two conditions is reached: 


a. The line printer starts a physical operation 
(because its buffer is full, or because a line 
terminator character was transferred) ; or 

b. The transfer count is exhausted. 


3. Special character handling; NUL's, DEL's and VT's are deleted; 
AUX-ON is transmitted as LF (for LPll) or as VT (for 
Centronics); CR is transmitted (if necessary) before LF, 

VT, or FF; TABS are transmitted as 1-8 SPACES (depending 
on current line position) ; all other characters are passed 
without change. 


1 



4, Trailing SPACES (and TABs) on a line are not printed. 

The maximum characters per line is an assembly parameter, which 
may be specified by statements: 

LP11=80 or LP11=132 

If not specified, LP11=80 by default. Furthermore, the Centronics 
line printer version of this driver is produced by an assembly param- 
eter, specified as: 

CENT=132 


If specified, CENT causes code unique to the Centronics printer 
to be assembled and overrides any LPll parameter specification. 

A flow chart and listings of the driver follow. 


October 1972 
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A listing of the V007A driver for use under DOS Monitor 
release V08-02 follows? 

CV.lP vr04*14 t:^-SEP-72 03S11 PAGF 1 


1 t CPPYRTGHT 1^7? HIGITAI. Fpl'IPMFNT ^OPPPRATIC^' 

€ 


V 

4 



IVERSIOK' 

n'UmrFR 

VC07A 

.7 03 

g 

e 




.title 

OV ,1 P 



7 




,TFM(?F 

CENT 



8 



LP11SP0'. 

.tfmdf 

LFl 1 



S 




^default to 80, 

OOIUMN LP^IJ 

10 




.FNHC 




1 1 




.FNOC 




12 




.tfhf 

LPil 



13 


000120 

LP,SI7«LP11 

?KUM0FR OF 

PRINT 

POSITION'S 

14 


000012 

LP.SK2*12 

»LF TRANSLATIpK' of »'SKTPfCW*2*’ (225 

15 




.FNinr 




16 




.IFDF 

CENT 



17 



LP.SI7«CENT 

;KLh'0FR OF 

PRINT 

POSITION’S 

18 



LP.SK?=13 

JVT — translation of »’SKTP'»CP«>?" (225 

19 




.FNHC 




20 




.7.1081- LP 



21 



IflRlVFR 

FOR LPII 

ANO OENTPONIOS 

101 

22 



ICHANGE 

LINFS LR 

.NAV TO LP 

,SK? For 

23 




»nEVIf! E 

OFPFNOENT 

CWARACTFRTSTIOS 

24 

P0000 

f? 0 0 0 

LP| 

.WORD 

0 


fOlJRRENT OOP PTR 

25 

P0002 

322 


.BYTE 

3?2 


ifaoilitifs indicator 

26 

00003 

000 


.byte 

0 


?N0'. PLF PNTTS/BLEFER 

27 

0 0004 

003 


.byte 

3 


28 







1 (ALLOWS 06 BYTfS/TRAN) 

29 

0 0005 

102 


.byte 

LP.INT^LP 


ITNTEPRUPT entry 

30 

00006 

200 


.byte 

200 


?tnt status (pr?*4) 

31 

00007 

030 


.byte tP 

.fP^ -IP 


lOPFN ENTPY 

32 

00010 

052 


.byte 

LP.TRN-LP 


|Tran entry 

33 

0 0011 

0 30 


.byte 

LP.OLB^LP 


?OLOSF entry 

34 

0001? 

000 


.byte 

0.0 


ISPECTAI ,SPARF 


00013 

0'’0 






35 

00014 

<’'46600 

LP.NAMi 

,PAn50 

/LP/ 


lOEViCE NAME 

36 


177514 

LP,CSR»1 77514 



lOSP ACOR 

37 


007200 

IP,TRP«207 



itrap vfc aoor 

38 







I FOP LFl 1 . I’SF 12(LF) 

39 







IFOR OENTPOMCS, ISE 13(VT) 

4^ 

00<^16 

700007 

LP.LIK t 

.WQPD 

0 


f*t CHARS SENT FOR THfS LINE 

41 

00020 

007000 

LP,BKS* 

.WORD 

0 


?rlank counter 

42 

00^2? 

000000 

BTCTI 

.WiQPD 

0 


?TRAN CHAR COUNT fCCMPL5 

43 

00024 

007070 

BLiFAOf 

.WORD 

0 


?PUF PTR 

44 







iPEGISTFR dffintticns 

45 


707070 

RPsXe 





46 


007001 






47 


707072 

R?«U2 





48 


707073 

R3s%3 





49 


7 0 7 ? 0 4 

R4«%4 





*0 


777775 

R5*S!5 





51 


007076 

SP»li;6 





52 


707077 

PCsX7 





53 

00026 

? 1 5 

LP.FRMi 

.byte 

1 » . 1 4 


lOR.FF 


00027 

0 1 4 






54 



?7PFN AVn CLGSE 




55 

00030 


LP.fPN Jl 

P.CIS J 





4 



C V , L P 


MACRC VCZd«i!4 13-seP*72 03 j!1 PAGF 1> 


66 ?0030 JSR PCflP.STS iSIM I^T 

17^00364 

67 Z0734 069771 ADD P , FRM» , , R 1. fRl*PC BY LP,ST? 

1 77772 

68 70040 0t7167 MCV RtfBgFAD ;AODR CF rR,FF 

1 / / / n 0 

69 70044 010267 MOV R?»RTCT |R2*^? PY LP.STP 

177762 

€0 70050 707414 BP LP»TNT 

€1 

€2 »TRAN 

63 70752 LP.TRM 

64 70752 704767 J6R POMP, STS |SIM IM 

707342 

65 70756 716770 MOV LFipR0 iDDP ACDR 

177716 

66 70762 716067 MOV 6fR7),BlJFAD IvSAVF BUF ADDR 

007076 

177734 

67 00777 fl*t6067 MOV 17fR0?#BTOT iDDP KCPD C^LIKT 

0*37010 
1 77724 

68 00776 706367 ASL BTCT |fHA^>PF T7 BYTES 

1 77720 

69 ITNTERRUPT 

70 00102 gP.TNTi 

71 00102 742737 uP.DISf BIC #1 07 , 4#LP'.CSR ^mSABLF 

707170 

177514 

72 70117 706737 TST 74gP,0SR iFRROR TEST 

177514 

73 00114 107533 LP.FRR 

74 

75 1^0 ERROR, SO COMTIME 

76 70116 717246 MOV R2,tCSP) 

77 70127 717146 MOV R1,«»CSP5 

78 00122 716746 MOV LP • L , * ( SP 5 

177670 

79 00126 706767 TST BTCT lOUPRFAT SYTE RFSTCLE 

177670 

80 00132 701 476 BFQ gP.ONF fOOK^E (^‘0 MCRF) 

81 00134 716772 MOV 81FAD,R2 jOURRFNT PUF AOOR 

177664 

82 00147 LP.LOPI I^A'TM LOOP 

83 00147 1 122'^! MOVR CR21 + ,R1 |NEXT CHAP 

84 00142 701 464 0EQ LP,DNP iSKTP IF ^^'lL 

85 00144 LP.LPPI 

86 INOTEI THF NRYT FOIR TNTRI.ICTIONS may PE OFLFTFO, 

87 I IF TRAIIING SPACE SUPPRFSSTOK' IS ^CT KEFCFC -- 

88 ; trailing TARS WTU STTLL PE SIPPRFSSEC, HOWEVER',, 

89 00144 127127 CMPB Rl,447 fPLANK? 

707040 

90 00157 701 073 fl^?E , + l7 

51 00152 776267 I^!C LP,PKS MUST IA!C BI.AhK COLM AKD MOVE 0 

1 77642 

52 00156 70'»466 BP L®.TRT 

53 00167 127127 CWPB R1M13 MT7 


5 



cv. 

IP \ 

^ A c R n VC 

04*14 13 

-5EP 

-72 03 J 1 1 PAGF 1 ♦ 




00001 3 





5i« 

0 016 4 

001453 


BFQ 

LP. r\p 


95 

00166 

120127 

^’*00022 


C^^PP 

R 1 »*2P 

fCHANNEL 2? 

96 

00172 

001002 


BN;F 

. * 6 

INO 

97 

0 017 4 

1 12 7 0 1 


M0 VP 

1^1 P,S^2»R1 

lYES, TRANSI ATE 



00001 2 





98 

0 0200 

120127 

000177 


C^PP 

R1 ,*177 

jRlJPOLT? 

99 

00204 

001443 


RFQ 

LP.CNP 


100 

0206 

1 057''7 

1 7 7 6 1 4 


TSTB 

**LP,CSR 

KHECK DEVICE READY 

101 

0212 

1 (70?« 1 


PPL 

LP.FTT 

ICIJTT IF not 

102 



icevicF 

CAN 

ACCFPT anctmer char 


103 



IPRCCFEC 

TO 

CHECK 


104 

0214 

120127 
00001 1 


CMPP 

R1 ,*l 1 

1 TAP? 

105 

0220 

001507 


BFQ 

L®.PTP IVE8. GC 

SI^UIATF IT 

106 

0222 

103415 


91 0 

Li'.CLC 

»NOT A terminator either 

107 

0224 

120127 
00001 5 


CMPp 

R 1 , * 1 5 

»cr.ff,vt,lf? 

108 

0230 

101712 


BHI 

LP.CLC 

?NO 

109 

0232 

001407 


BFQ 

LF.RSC 

»TRFAT cr specially 

110 



IGUARAKTHF CR BFFCRF TEPMTNATnRS 


111 

0234 


LP.TRM* 




112 

0234 

005716 


T5T 

* 5P 

1 AT BFG INNING OF LINE? 

1 13 

0236 

001 422 


BFQ 

LP.PSn 

»YE? 

114 






|Nfi, FCRCF cr 

115 

0240 

005302 


OFC 

R2 


116 

0242 

00=367 

1 77564 


DFC 

BTCT 


117 

0246 

1 1 2701 

0 0 e 1 5 


Mn VP 

* 1 5 , R 1 


lie 

0252 


LP,RSr s 


IRE5ET roUNTS 

119 

0252 

0 0 = e 1 6 


CL R 

45 P 

1 INE 

120 

0254 

00041 3 


QQ 

LP.RSR 


121 







122 

0256 


LP.CLC* 


•SP f *LP‘.STZ 

jCHFCK LINE OVEFFICK' 

123 

0256 

021627 

'"00120 


c^p 



124 

0262 

002014 


BCE 

LP.CNP 

rSKTP IF FUl.L 

125 

0264 

005216 



6?P 

?FLSF count line CHARS 

126 

0266 

0 0 5 36 7 

1 77526 


DFC 

tP ,PK5 

ICHFCK PLANK COl;NT 

127 

0272 

100404 



IP .PSP 

ICO AHEAD IF NO BLANK COUNT 

128 

0274 

1 12737 
CM0040 
177516 


BCVP 

*40 , «*L® .CSR+2 

lOTHEPKlSF, PUT CUT A BLANK 

129 

0302 

000720 


BP 

LP,LP" 

lAND TRY AGAIN 

130 







131 

0304 

005067 

1 7751 0 

LP ,PSR 1 

Cl P 

LP.PKS 

iSHDii’ KO planks WAITING FOR PRIN 

132 







133 

031? 

110137 

1 775 1 € 

IP.TBFl 

HC VB 

R 1 .**LP .CPR+P 

IDIJTPLT CHAP 

134 

0314 


L° .CNF * 




135 

0314 

005267 

LP ,TRT : 

I^C 

BTCT 

H^PDATE PI!F RFSTCUE 


6 



MACOC 1?-SEP*72 page 1 + 


f: V , I. p 




1/7502 





136 

0327' 

031307 


3 N! E 

IP.l.OF 

1 MORE? 

137 






lOOME FOR \OW 

138 

032? 

1 05737 

177514 


TST5 

«*LP,CSR 

»OEV PISY? 

139 

0326 

100014 



LP.^T.I 

» VES 

1 4e 







141 

0330 


LP.PNiFl 



JM'O, SC ^0 interrupt 

142 

0330 

012667 

1 774«2 


3 0 V 

CE^T+fLP.l 

JPESTORF TEMPORARTEvS 

143 

0334 

012601 


MOV 

C5P1+.R1 


144 

0336 

012602 


MHV 

C«P)*,R? 


145 

0340 

013746 

000044 


‘IDV 

•^S.RSVi-fSP) 


146 

0344 

004536 


JSR 

R5» « (SPI* 

ISAVE REGS 

147 







148 

0346 

016700 

1 774?6 


MOV 

tP ,R0 

tnf)q PJP 

149 

035? 

000 1 70 
0000 1 4 


JMP 

01 4 tR0) 

?ODR CCMpt ETE - EYIT 

15e 



1 




151 

0356 

005302 

LP,STIt 

DEC 

R? 

»SET TC RFSCAK pyTE 

152 

0360 

01?667 

1 77432 

LP.ST.Ji 

MOV 

fEPT+#LR,i IN 

ISAVE CnuvTS FOR TNTEPRUPT 

153 

0364 

010267 

1 77434 


MOV 

R ? , R 1 J F A 0 


154 

0370 

012601 


MOV 

CSP) +#R1 

JPESTORF pegs 

155 

0372 

Pi?e02 


MOV 

CSP1*,R3 


156 

0374 

03?737 
000 100 

1 77514 


BTS 

#1 20 »?««LP'.C?R 

lALlOi^ interrupt 

157 

0402 

000002 


RTI 


IPETUPK TO USER 

158 

0404 


LP.FRRI 



JFRROR ON DFVTCF 

159 

0404 

016746 

177404 


MOV 

LP AM.^f fl!P5 

fSHOR OFVr NAME 

160 

0410 

012746 

000402 


MOV 

4402;|*(SP1 

IGIVE 1-2 ERR CrCE 

161 

0414 

000004 


lOT 



162 

0416 

000631 


BR 

LP.CIS 

?TRY AGAIN 

163 



1 




164 



IIKTERRUPT SIHUL 

ATCR 


165 

0426* 

0 l ?601 

LP.STSl 

MOV 

(SPI-^.Rl 

|RTN PC 

166 

042? 

011646 


MOV 

(PPI »- fSPI 

lOLO PC 

167 

0424 

005002 


Cl R 

R? 

JAOORFSS PS f-2T 

168 

0426 

014266 

000002 


MOV 

-»fR?) ,2fSP5 

»OlO STATUS 

169 

043? 

01371? 

000202 


MOV 

**LP ,TRP*?, fR?1 

tNEW STATUS 

170 

0436 

010107 


MOV 

R1 »PC 

fRFTURN 

171 



1 




172 



ITAB SIMULATOR 



173 

0440 


LP.PTR 1 




174 

0440 

011646 


MOV 

RSP,’*fSP) 

iruPPFNT L INE position 

175 

044? 

066716 

1 77352 


A0D 

tP,RKS,ASP 

;+ArCL MULATFO BLANKS 

176 

0446 

052716 


BTS 

1^1 77770, RSP 

pMQO fV ,P)»R 


1 777713 


7 



CV.IP H6CP0 13-SEP*72 C53t!l PAGF 1* 


177 

0452 

1 62687 
177342 

SUB ■ 

C?P5+>LP.P'<S 

178 

0458 

P507716 

8P 

LF.trt 

179 




180 


1 77776 

S,STAT«1 77776 


181 


P'0F0-d4 

S‘,PSVe44 


182 


7070*^0 1 

,FNn 

LP 


MOn 1 TO 8 BIAKKS 
IHOVE CN! 

|PS ADCP 

fAOPR CF PFGSAVF PCUTINF 


CV.LP 

FACRC VC04*14 

13^SEP-72 

03:ll PAGF 1* 


SVFFOl 

taplf 




ercT 

0P0P22R 

bufah 

000024R 

IP 002000RI:: 

LP.FKS 

073027R 

UP. CLP 

000256R 

iP.fUS 000030R 

LP,CSR« 

177514 

LP.nis 

0001 32R 

1 P.rjNF 000330R 

LP.FNP 

0 0 3 1 4 R 

I.p.frr 

000404R 

LP.FRF 000026R 

LP.TMT 

07/J1 02R 

UP.UTN 

000016R 

LP.LOP 000140R 

LP,l PP 

000144R 

LP.KAM 

000014R 

LP’.rpN 000030R 

LP.FTB 

07044PR 

LP.RSB 

070304R 

LP.PSr 00025PR 

LP,SI7» 

0 F 0 1 2 ^ 

UP, SKgs 

00001? 

LP.STT 000356R 

LP.STJ 

07036‘^R 

UP, STS 

00iJ420R 

IP.TBF 000310R 

LP.TRM 

0P0P34R 

Up.trk 

002052R 

LP.TRFa 000200 

LP.TRT 

01^03 14R 

UP 11 » 

002120 

PC a7000007 

P0 85^070707 

R1 a 

700200! 

P? a7000003 

R 3 8 

7000F03 

R4 8 

•/!:000024 

P5 b!;000005 

gp 8 *4 07 0006 

S.RSV a 

002044 

s'.STATa 177776 

. APS. 

070000 000 







ERRrPS HETErTFOi 0 
FREE CCPFf 1«3F7'. 'aORDS 
iL,Pj<nT f LP 


8 



MAY^A!?D# mass 


A listing of the VOOlA driver for use under DOS Mojiitor 
release V04A follows: 

JCOPY^IRHT 1971# digital EQ'JI»MFNT COPP,# 

JVERSTON MUM8FR? VP^tA 

t LINE PRINTER DRIVER (IP) 

^00120 PRSIZE = 80. t N'lMf^FP QF COLUMNS EDR THIS PRINTER 

.title LP 
.GL08L LP 

000000 R0a%0 
000001 .Rls%l 
000002 R2s%2 
300003 R.3a%3 
003004 R4a%4 
000035 R5a%5 
300006 SPa1£6 


300007 PC«%7 




j preamble (FIXED) 



000000 

000000 

LP! 

.WORD 

0 

! 

CURRENT OCR OR 0 

000302 

322 


.byte 

LP.BP 

« 

FACILITIES INDICATOR 

000003 

000 


.BYTE 

a 



000004 

003 


.BYTE 

3 

• 

# 

STD, BUF. 7 16 






! 

83 CHAR, MAX, 

000005 

110 


.byte 

l°,int-lp 

t 

INTERRUPT ADDRESS 

000006 

200 


.BYTE 

230 

t 

STATUS (PRIORITY 4) 

000007 

030 


.byte 

LP.OPN-LP 

t 

OPEN entry 

000010 

056 


.BYTE 

LP.TFR-LP 

! 

TPAMSFER (OUT) 

000011 

030 


.byte 

LP.CLS-LP 

t 

CLOSE 

000012 

000 


.byte 

3 

f 

SPECIAL 

000013 

000 


• byte 

3 

t 

SPARE 

000014 

046600 

LP.N'AM! 

,RAD50 

•LP* 





t HISC, 

STORES! 




000016 

014 

LP.FRMj 

.byte 

14,0 

1 

USED FOR OPEN & CLOSE 

000017 

000020 

000 

300000 

LP.LINi 

.‘^ORD 

0 



000022 

000030 

BTCTs 

.WORD 

0 

f 

internal count 

000024 

000000 

3UFAD! 

.WORD 

0 

t 

# 

BUFFER POINTER 

000026 

000030 

LP.TAB: 

.WORD 

3 

t 

tabulation count 



! OPEN 

& CLOSE 

ROUTINES! 



000030 

004567 

000340 

LP.OPNi 

J3R 

R5,LP.STS 

? 

simulate interrupt 

000034 

012767 

000001 

177760 


MOV 

#1,BTCT 

! 

SET FOR FF PRINT 

0-00042 

010767 

177756 


MOV 

PC,BUFaD 

• 

0 

FROM header 

000046 

062767 

177750 

177752 


ADO 

#lp.frm-,,bufad 



000054 

000415 


BR 

LP.InT 





! TRANSFER ROUTINE! 



000056 

016730 

177716 

LP.TFP! 

MOV 

LR,R0 

t 

PICK UP DOB 

000362 

304567 

a0pi3;n6 


J3R 

R5,LP,STS 

J 

RUN AT LP STATUS 

000066 

316067 


MOV 

6(R0)fBUFAD 

f 

SAVE BUFFER ADDRE-SS 


300(206 

177730 


9 



000^74 1^16004 

51 n 1 a 

MOV 

1M(P0) ,R4 

t PRESERVE DOR W,C, 

f iC u 'C i 10 

000100 

ASL 

R4 

? character count 

000102 005404 

NE6 

R4 

t make positive 

000104 :il0467 

MOV 

R4,RTCT 


177712 





000110 

M42737 

O0ff'13t) 

177514 

LP.Tnt: 

Bie 

#100» R#LP,C3R 


DISABLE INTERRUPT 

000116 

005737 

177514 


TST 

?«LP,CSR 

: 

CHECK FOR ERROR 

000122 

100516 


SMI 

LP*ERR 

• 

YES 

000124 

010146 


HOV 

R1,-(SP) 


QUICK SAVE 

000126 

010246 


MOV 

R2,-CSP) 


: REQS, 

300130 

016701 

177666 


MOV 

8TCT,R1 

j 

GET current byte COUNT 

000134 

301474 


8EQ 

LP.DNE 

• 

r 

NO ^ORE 

000136 

316702 

177662 


MOV 

8UFAD#R2 

: 

GET CURRENT 8UF LOC, 

000142 

105737 

177514 

IP, lop: 

TSTS 

ff^LP.CSR 


: IS PRINTER GOING 

000146 

100055 


BPL 

L*=»,STI 

: 

YES 

300150 

121227 

000011 


CMPR 

(R2),«ll 

• 

TAB ? 

000154 

^^01523 


8EQ 

LP.PTB 



300156 

121227 


CMP to 

CR23,#i5 

? 

CARRIAGE RETURN 


000015 






000162 

M01416 


BEQ 

L^.PSC 


... RESET COUNTS 

300164 

105712 


TSTB 

«>R2 

f 

IGNORE NULL ... 

300166 

001537 


BEQ 

LP.DNP 



300170 

121227 


C 0P8 

PR2»#13 

? 

VERTICAL TAB ... 


000013 






000174 

001534 


BEQ 

LP.DNP 



300176 

121227 

000177 


CMP 3 

«>R2,ai77 

: 

... & RUBOUT 

00020? 

001531 


BEQ 

LP.DNP 



000204 

121227 

000012 


CMPfB 

»R2.#12 

? 

IF LINE terminator ... 

000210 

001403 


8EQ 

LP.RSC 



000212 

121227 

000014 


CMP3 

#R2f #14 



000216 

001007 


8NE 

LP.CLO 



000220 

012767 

000011 

177600 

lp.psc: 

MOV 

«0,,LP.TAP 

? 

RESET COUNTS 

300226 

012767 

000121 

177564 


MOV 

#prsize+i.lo.l: 

[M 


000234 

000403 


BR 

LD.TBF 

} 

... % OMIT NEXT 

000236 

005767 

177556 

LP,ClO: 

TST 

LP.LIN 

t 

otherwise CHECK LINE OELO 

00024? 

001511 


BEQ 

LP.DNP 

• 

P 

IGNORE CHAR IF FULL 
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000?44 

112237 

177516 

LP.TBF: 

MOV 3 

(R2) + ? 9«LP,3UF 

» 

f 

PPIMT CHAR 

000250 

005367 

177544 


DEC 

LP.LIM 

f 

COUMT CHAPS, DESPATCHED 

000254 

005367 

177546 


OEC 

L'^.TAB 

t 

UPD4TF TAP COUNT 

000260 

0010^^3 


8NE 

LP.TRT 



000262 

312767 

000010 

177536 


MOV 

#3,,LP,TAP 

« 

9 

RESET tab count 

000270 

005301 

IP.TRTj 

DEC 

R1 

t 

UPDATE COUNT 

000272 

301323 


8NE 

LP.LOP f MORE 



000274 

105737 

177514 


TSTB 

««LP,CSR 

f 

PRINTER GOING 

000300 

100412 


SMI 

UP,DNE 

J 

NO, 30 NO interrupt 

000302 

010167 

177514 

UP.STI! 

MOV 

R1,RTCT 

J 

SET UP FOR ^4EXT TIME 

000306 

010267 

177512 


MOV 

R2,BUFAD 



000312 

052737 

xAiA 

LP.T^C; 

BIS 

#100,»#LP,C3R 

f 

ENABLE interrupt 


177514 






000320 

012602 


MOV 

CSP5+f R2 

? 

RESTORE REGS 

000322 

012601 


MOV 

CSP)+»R1 


000324 

000002 


RTI 


? 

THROUGH interrupt 


000326 

012602 

LP.DNFj 

MOV 

C$P)+.R2 

1 RESTO^fE REGS 

000330 

012601 


MOV 

(SP)+,Rt 


300332 

013767 

300044 

000002 


MOV 

«»«LP,SaV, , + 13 

f SAVE ALU REGS 

000340 

004537 

000000 


JSP 

R5, <*#0 


000344 

005037 

177514 


CLR 

«#LP,CSR 

1 DISABLE INTERRUPT 

000350 

016700 

177424 

LP. IGNJ 

MOV 

LP,R0 


300354 

000170 

000014 


JMP 

914(R0) 

f completion RETURN 

300360 

016746 

177430 

lp.err: 

MOV 

LP,NAM,-(SP) 

f ON ERROR SHOW NAME 

000364 

012746 


MOV 

#402, -CSP) 

t 1-2 ERR MSG 


000402 





20037'?’ 

000004 


lOT 



000372 

000646 


8R 

LP.INT 
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? SUBROUTINE FOR INTERRUPT Sr^lLATIONj 


000374 

^11604 

LP.STS; 

MOV 

CSP) ,R4 

! 

SIMULATE INTERRUPT 

000376 

016603 

^ 9 


MOV 

2CSP) ,R3 



00040? 

- * -• iCi - < 

^^13766 

177776 

r* t>o,fAO 


MOV 

«as.STAT,2(SP) 

7 

FROM JSR PC,XXXX 

000410 

010316 


MOV 

R3, (SP) 



00041? 

010446 


MOV 

«4,-(Sp) 



000414 

013737 


MOV 

tfAiLP.STV,9#S,STAT 

j RUN UNDER LP STATUS 


000202 

177776 






000422 

000205 


RTS 

R5 



000424 

005767 

177376 

UP,PTB! 

TST 

lp.tab 

} 

AT NEW TAB ALREADY? 

000430 

001413 


BEQ 

LP.EVN 



000432 

112737 

000040 

LP.MTP: 

mqvb 

#40,«>#lP.BUF 

• 

9 

SPACE FOR TABS 

000440 

177516 

005767 

177354 


TST 

LP.LIN 

• 

f 

LINE OVERFLOW 

000444 

001410 


BEQ 

LP.DNP 

7 

YES, IGNORE REST 

000446 

005367 

177346 


DEC 

LP.LIM 

7 

INCLUDE IN line COUNT 

000452 

005367 

177350 


DEC 

lp,tab 

7 

DONE ? 

000456 

001231 


SUE 

LP,IQP 



000460 

012767 

000010 

177340 

LP.EV^*S 

MOV 

#S,»LP,TAP 

7 

RESET 

000466 

005202 

LP.OMPs 

IOC 

R? 



000470 

000677 


8R 

LP.TRT 




177514 

LP,CSPa 

177514 





177616 LP.9UF«177516 
'^■ 2^622 LP.BP»3?2 
.^0P044 LP.SAVsA4 
177776 3.STAT.177776 
B0I7202 LP.5TV = ?02 
B0P030 LP.CLSalP.OPN 
B0(?'0p!i .End 


000000 ERRORS 


BTCT 

000022R 

eUFAO 

000024R 

LP 0O0300RG 

LP.BP 

a 600322 

LP.8UF 

a 177516 

LP.CLO 000236R 

LP.CLS 

1 00f;030R 

IP.CSR 

a 177514 

LP.DNE 030326R 

LP.DNP 

606466R 

LP.ERR 

0O0360R 

LP.EVN 000460R 

LP.FRM 

600016R 

LP.IGN 

000350R 

LP.INT 030113R 

LP.LIN 

000020R 

LP.LOP 

0O6142R 

LP.MTB 0O0432R 

lp.nam 

600014R 

LP.OPN 

0M0030R 

LP.PTB 030424R 

LP.RSC 

006220R 

LP.SAV 

a 0130044 

LP.STI 030302R 

LP.STS 

000374R 

IP.STV 

a 030202 

LP.TAB 030026R 

LP.TSF 

006244R 

LP.TFR 

010056R 

LP.TRT 030270R 

LP.TwC 

600312R 

PC 

b%030007 

PRSIZE a 030120 

P0 

■%£00000 

R1 

3X000001 

R2 a%000302 

R3 

a%000003 

P4 

a%0O0004 

95 aX000305 

SP 

»%026066 

S.STAT 

a 177776 

. a 030472R 
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CRll/CMll CARD READER DRIVER 

The card-reader driver performs device-dependent I/O functions for the 
PDP-11 CRll Card Reader Control within the Disk Operating System (DOS) . 
At each Monitor request on behalf of a running program, the driver, in 
its basic version, reads a single card, which may be punched in either 
026 or 029 Hollerith notation as indicated by specially coded cards in 
the input deck. The resultant data is stored in a specified area as a 
line of up to 80 ASCII characters terminated by a carriage-return/line- 
feed. 


By conditional assembly of its source, however, the driver may be 
produced in various versions to include the following additional fea- 
tures : 


• Restriction of input conversions to one type of 
punch. 

• Automatic deletion of card-columns 73-80 and of 
trailing spaces from preceding columns. 

• Reading of cards punched in a binary format with 
data passed to the user, packed 4 columns to 3 words. 

• Provision of similar facilities for the 40-column 
Mark Sense Reader under CMll control. 


All cards are read under the PDP-11 interrupt system. The driver, 
therefore, contains the routines needed, firstly, to initiate a card 
transfer and, secondly, to service the interrupt as each column is read 
and supply the required conversion of its content until the end of the 
card is seen. An OPEN function is also included to enable a using pro- 
gram to ensure that the reader is on-line before issuing its first 
read. CI/DSE and Special Functions processing is unnecessary and is 
not provided. 


1.0 BASIC DRIVER (ASCII ONLY) - CRll 


The driver is in two parts; the Driver Table and the Service Routines. 


1 . 1 Driver Table 

The table occupies the first seven words of the driver in the standard 
format for I/O drivers under DOS. It includes the following particu- 
lar information; 


• Capabilities; Single user 

Input in ASCII only 
Non-file structured 
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• standard buffer size = 96 bytes 

• Interrupt servicing at priority level 6 

• Device Name : CR 

1.2 SERVICE ROUTINES 

1.2.1 OPEN 

The OPEN routine first checks the Control Status of the reader. If 
for any reason this is off-line, printing of an A002 error message 
(device not ready) is requested. If a return is made, the check and 
message are repeated mtil an on-line state is detected. The routine 
then prepares the driver to accept 029 punching by default and returns 
control to the calling Monitor routine. 

1.2.2 TRANSFER 

Using the starting address set into its first word by the calling 
routine, the driver's TRANSFER processor accesses the DDE for the 
dataset requiring the card input to extract and store internally 
pointers to the start and end of the buffer area for the data. The 
first word of the buffer is then cleared as an indicator that the first 
column is yet to be read. The routine returns to the Monitor with 
the Reader Control set to INT ENB and GO. 

1.2.3 Interrupt Service 

At each interrupt, a check is first made for error or card-done con- 
ditions. If neither is seen, the column data just accessed is used 
to compute an index into a table of associated parity-ASCII charac- 
ters (see Appendix A) , the relevant character is extracted and stored 
as a byte in the buffer provided. The next buffer byte is set to a 
positive non-zero value to show that a valid read is under way. An 
interrupt return is then tdcen. 

For card column 1, however, checks are also made for a card with 
any of the following ?)ecial codings in that colum: 

( • 12-2-4-8^ This indicates that the cards which 

follow are to be read as 026 punch 
codes, and on recognition of this an 
internally stored offset is modified 
to use the appropriate section of the 
table of ASCII values. 

I • 12-0-2-4-6-8^ This indicates that the following cards 

contain 029 and cause similar offset 
modification. 

I ^ These codes are 12-11-8-9 and 12-0-7-9 in Version 005A Monitor V004 
release . 
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This indicates the end of the card 
file, and a card so coded must be 
present ("Hopper Empty" is merely 
deemed a "Device not ready" state 
to allow usage of very large decks) . 
When this card is seen, the next 
buffer byte is set negative to show 
EOF. Since no data will now be forth- 
coming, the appropriate word is set in 
the dataset DDE to show this . 


When any of the three cases is seen, the Reader Control Status 
is reset to EJECT before the interrupt exit is taken, thereby causing 
the remainder of the card to be ignored. 

The rest of a card is similarly ejected if, during the process- 
ing of any column, the buffer is filled. In normal READ operations 
for which the Monitor provides a standard-sized buffer of 96 bytes, 
this cannot occur. This is not necessarily the case if the user pro- 
gram has requested TRAN. If this program also supplies short buffers, 
this can mean the possible loss of card data, intentionally or other- 
wise. 


When a card-done condition is detected, the Reader interrupt is 
disabled. The underway state, shown as noted earlier in the next 
buffer byte, is then checked. If no data has yet been processed be- 
cause the card just read merely contained a control code, a new card 
transfer is requested by recalling the TRANSFER routine. Otherwise, 
the unused portion of the buffer provided is cleared and the parity- 
ASCII values for RETURN and LINE FEED are inserted to follow the last 
data read (in the short buffer, these will overwrite the last two 
columns processed) . As required by the general driver specification, 
the service routine then saves all user registers on the processor 
stack and takes the supplied completion return with Register 0 set to 
the address of the DDE just serviced. 


It should be noted that this process allows the reading of only 
one card at each request, regardless of the size of the buffer pro- 
vided. Eecause a card-read (once it has begun) must continue to com- 
pletion, any attempt to fill the unused buffer space must necessitate 
the rnternal storage of any overflow, if possible loss of data is to 
be avoided. In keeping the size of the driver to a reasonable limit, 
the provision of such internal storage is not considered desirable. 
For the READ form of I/O, the buffer supplied by the Monitor must be 


^This code is 12-11-0-1 in Version 005A Monitor V004 release. 
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excessive, as space is allocated in 16-word units; the null padding, 
however, is not passed on to the user program. On the other hand, it 
can be seen that no advantage is gained by a program defining a buffer 
larger than 82 bytes when using the device-dependent TRAN. 

1.2.4 Error Handling 

The detection of any error condition is taken to mean a "Device not 
ready" state, leading to the printing of an A002 message with the 
reader interrupt disabled. If the operator requests resumption by 
a CONTINUE command at the keyboard, the error processor will recall 
the TRANSFER routine to repeat the read and exit to await a fresh 
interrupt. This allows the operator to rectify the error, if possible 
the card causing the error should be replaced as the first to be read 
after the resumption. 


NOTE 

A "Hopper Empty" condition is detected before 
the last card has been processed. It is, there- 
fore, essential that the EOF card for a deck be 
followed by at least one more card (can be blank) . 

Should this be omitted, normal completion can be 
effected by re-insertion of the EOF card followed 
by a blank card. 

1.3 ALTERNATIVE DRIVERS FOR ASCII ONLY USAGE 

As has been shown in the previous section, the standard driver accepts 
cards punched in either 026 or 029 codes when so directed by control 
cards, or the driver assumes 029 by default. Unless the user program 
then requests input by TRAN with short buffer sizes, 80-character 
lines are the norm. To provide other versions of the driver more 
suited to the needs of a particular installation, the following con- 
ditional assembly parameters have been included in the source language 
If these are defined when the source is processed (DEFALT = 0 is suffi 
cient definition) , the driver will operate as indicated. 


1.3.1 DEFALT 

This forces the driver to assume 026 card codes as the default. Con- 
trol cards as defined, however, will still override this assumption. 
The effect on the driver length is negligible - one word. 

1.3.2 ONLY26/ONLY29 

If the user has only one type of punch, he can restrict the driver 
accordingly by the definition of the relevant one of these parameters. 
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In this case, control cards will have no effect and will be ignored if 
present. Because the driver then needs only half of its conversion 
tables and certain checks can be eliminated, the driver size is reduced 
by some 45 words. 

1.3.3 BLANKS 

By common practice, card columns 73-80 are often used only for control 
information, e.g., sequence numbering, which need not be processed by 
the using program (initial value of Blank suppress is off) . Moreover, 
quite a number of columns before these may contain nothing but blanks 
(translated into spaces in ASCII) . Although cards of this type will 
be accepted by systems programs such as Assembler or Editor without er- 
ror, the burden on lines always 80 characters long can be excessive, 
especially if, as one example, the only means for listing the assembly 
of a card source is a teleprinter. 

The parameter BLANKS has been included to enable the user option- 
ally to remove this burden, provided that he is also prepared to accept 
an increase of some 18 words in driver size (initial value of Blank sup- 
press is off) . The driver in this case will still continue to transfer 
80 characters as its normal operation. If, however, the card deck is 
preceded by a control card punched 12-11-0-7-8-9 in column 1, or at any 
point contains a card so punched, columns 73-80 in all subsequent cards 
will be ignored and the CR/LF terminating the line each card represents 
will be set immediately after the last non-blank data column. The auto- 
matic deletion will remain until the user program requests an OPEN for a 
fresh deck. 

NOTE 

DEFALT, ONLY26, and ONLY29 are of course mutually 
exclusive. BLANKS, on the other hand, may be de- 
fined alone or with any one of the other three. 

2.0 READING OF BINARY CARDS 

Some users may wish to have the additional facility of reading cards 
directly as 12 bits per column rather than as ASCII characters, perhaps 
for one of the following situations: 

• Linking or loading of card programs produced by 
cross-assemblers or linkers developed on other 
conputers . 

• Processing of binary data output by other computers. 
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Reading of cards using character codes other 
than those associated with 026 or 029 punches^. 




A further conditional assembly parameter, BINARY, has been included in 
the driver source to meet this requirement. 

2.1 BINARY FORMAT 

The driver, assembled with this parameter defined, still continues to 
function exactly as described earlier whenever the using program re- 
quests ASCII input. If, however, a binary transfer is called, the pro- 
cessing Monitor routine will inform the driver of this by setting to 1 bit 0 
of the status word of the DDB for the dataset concerned (DDB+12) . On 
recognition of this, the driver accepts each column as 12 data bits and 
passes it to the program in a packed form, four columns taking three 
words, in accordance with the following pattern: 


c. c. 4 
c. c. 3 
c. c. 2 
c. c. 1 


This format, which is compatible with that used by IBM 1130 and 
1800 Series, has been chosen because it alone provides for all the 
facilities listed above and, moreover, is compatible with the device- 
independent philosophy of DOS. It may nevertheless mean that the user 
who needs to process each column on a word basis must include in his 
program the routine to unpack again the data from the driver (a pos- 
sible algorithm is offered in Appendix C) . 

The main effect of the inclusion of the binary capability in the 
driver is a substantial increase in its size, hence the reason for this 
not being made a feature of the standard version. Apart from the cod- 
ing changes need to cater for the different processing (which are out- 
lined in subsequent paragraphs) , the assumption made in the case of 
ASCII data, that null padding in oversize buffers can be safely over- 
looked, no longer applies. Each buffer word must always be considered 

^An alternative in this case might be to change the driver's comver- 
sion tables to satisfy the different codes, provided that these use 
the same pattern - null, 0, 11 or 12 in association with one punch in 
range 1-7, perhaps with a punch in 8 or 9. 
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as valid data. In order that the driver may cope with this situation 
(the Monitor can only supply a buffer made up of 16-word units) # it 
must now contain its own internal buffer to hold any residue from a 


L;ard Used tu till the remciiiiing MonitOi aj.ea. 
due can be stored already packed in its final form, the internal buf- 
fer must be at least 60 words long. Together with the additional cod- 
ing, the driver increases from its 200 words, in the basic ASCII-only 
form, to 380. Against this, however, the presence of the internal buf' 
fer also means that the driver can supply valid binary data into user 
buffers of any length for a program issuing TRAN requests. 


. ^ .C J T 1 


It should be noted, too, that the format used does not in itself 
provide any checking upon the read accuracy of each card. All 80 col- 
umns are assumed to contain actual data. Programs READing in unformat- 
ted binary modes or using TRAN must make their own checks if these are 
important, in just the same way as with other drivers. On the other 
hand, the Monitor processing formatted binary READS will expect the 
data to conform to its normal standards for each request. 


Byte 0 : =1 

Byte 1: =0 

Bytes 2-3: Number of bytes to be read including bytes 
0-3 but not the final checksum. 

Bytes 4-N: DATA BYTES 

Byte N+1: Checksum of Bytes j2(-N 


If program developed tD produce binary cards in such format also punch 
one card for each READ, the data checksum, can serve as card checksum, as 
well (in this case, nulls following the checksum will be ignored) . 


2.2 CODING CHANGES FOR BINARY OPERATIONS 

The changes in the driver's operations brought about by the defi- 
nition of BINARY are as follows: 


2.2.1 DRIVER Table 

Capabilities as indicated in Section 1.1 are extended to include bi- 
nary input. 

2.2.2 OPEN 

The OPEN processor still first checks the on-line state of the reader 
and takes appropriate action as described earlier if it is not ready. 
It now, however, anticipates the fact that after its exit, the driver 
will be recalled immediately to fill the Monitor buffer against the 
program' s first READ. At this time the Monitor will be unable to di- 
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rect the driver on the mode of reading. The OPEN routine therefore 
sets a switch to cause a return to be made without a card transfer, 
when this recall occurs. It also means that the Monitor will give the 
user program 96 bytes of null (equivalent to leader on a paper tape) 
for its first unformatted binary operations. (Incidentally, the switch 
is set to perform a proper read when the driver is loaded into memory; 
if, therefore, the program does not request an OPEN but starts by a 
READ, the correct result will occur.) 

2.3 TRANSFER 

As with all drivers, the card reader driver must contain only position- 
independent code. To control its internal buffer, however, it needs 
absolute pointers. The first actual read causes execution of some 
once-only code to establish these. Again, a switch effects this. A 
further switch is then set according to the mode in which tte data is 
to be handled. As mentioned earlier, if this is ASCII, the code for 
the standard version of the driver is followed, both during the TRANS- 
FER and INTERRUPT service functions. 

For binary transfers, any data remaining from a previous read is 
passed to the Monitor buffer immediately. If this is sufficient to 
satisfy the Monitor's requirements, an immediately completion return 
is taken. (Since this would normally follow an interrupt and the Moni- 
tor will expect this, the driver must in this case simulate the approp- 
riate conditions, i.e. , leave an interrupt exit on the stack, supposed- 
ly preceded by saved registers.) A new card read is initiated in the 
same way as ASCII if more data is needed. In addition, the second byte 
in the Monitor buffer not yet filled is cleared as a switch for use by 
the packing algorithm which handles odd and even card columns differ- 
ently (see Appendix B) . 

2.4 INTERRUPT SERVICING 

The packing of binary data is accomplished as each column is read. At 
the beginning of each card a check is again made for EOF. Unlike the 
ASCII case, the coding of a single column cannot provide a unique identi- 
|fication. The same pattern (12-11-0-1-6-7-8-9 M is therefore looked for 
in each of the first eight columns before the end-of-data is signalled 
and the remainder of the card ejected. (The same card can still be used 
for either data form; the ASCII processor merely uses the first column 
punched.) No other control cards are expected in binary mode. 

I^This was code 12-11-0-1 in Version 005A Monitor V004A release. 
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After the entire card has been read as indicated by a card-done 
condition, the TRANSFER routine is recalled to continue its process 
of transferring the data into the Monitor buffer. Since an interrupt 
has no occurred, the return to the Monitor on completion is by normal 
means . 

2.5 EPJ?OR HANDLING 

Any error condition is again considered a "device not ready" and is 
handled accordingly. Because a repeat of the TRANSFER routine as a 
way of resuming read operations on return would perhaps lose data al- 
ready passed to the Monitor from a previous card, a failure in binary 
mode leads only to that part of the TRANSFER operations which causes 
a new card read. 

3.0 CMll MARK SENSE READER DRIVER 

The CMll Control is expected to use only 40-column cards. (The normal 
CRll driver with or without definition of the special assembly param- 
eters will function without change if 80-column cards are used.) To 
provide the following particular benefits in view of the smaller amount 
of data available at each card read, one more parameter for conditional 
assembly has been included - MARKS: 

• Standard Buffer size = 64 bytes rather than 96. 

• Internal buffer for binary operation is reduced 
from 60 to 30 words. 

• If BLANKS has been defined, automatic deletion 

of trailing spaces will follow recognition of the 
relevant control card but not of the last 8 columns. 

4 . 0 DETAILED IMPLEMENTATION 

Comments on the listing which follow illustrate the general form of 
the driver. Further explanation of some of the more obscure tech- 
niques used is given in Appendix B. Other appendices summarize the 
ASCII/Hollerith equivalences, the procedures for obtaining the various 
■rersions of the driver, and the comparative sizes of each. 


9 



DV.rR 


MACcr vr04pM 13-.3EP»72 PAGF 1 


1 

2 

w 

4 

g 

e 

7 

e 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 
30 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
60 
ei 

52 

53 
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f Dl ML - read PCTH types DE CODE 

f WITH »029‘ AS default 

I IN cases fC5 S ID), ORIVFP '«ILL USE DEFAULT 
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I WITH ‘CR-LF' POLLOWTNG LAST VALID DATA, PRCVIOED 

t that card file is preceded by CTL card with 

t 12-1 l»0-7-e-9 PUNCHED IN O.C, 1 TN THIS CASE 
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I liUFFER UNTII THIS IS FILlFD. ANY DATA THEN REMAINING 

I I’'! the internal buffer PfTKIR RETATNED UKTIL the 
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66 
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?7 
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JFNPTY 

14 00564 
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72 
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47 

f • 
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275 
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275 
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42 
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y 0 
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324 
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lU 
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126 
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.BYTE 
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29 00602 
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1 V 

30 00603 

ni 
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31 00604 
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32 00605 
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33 00606 
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yC 
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.BYTE 
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y > 
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77 
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11 00626 
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12 00627 
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13 00630 
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14 00631 
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15 00632 
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17 00634 
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18 

t 
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20 00636 
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22 00640 
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29 00647 
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774 
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04 1 
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.BYTE 311 
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;? 
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.pyte 

63 

»3 
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|5 
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66 

|6 
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>7 

11 00670 

270 
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240 
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.BYTF 
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47 
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•0 
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20 
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1 
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71 

f9 

21 00701 
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.pytf 

60 
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257 

*/ 
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.PYTE 
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125 
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1?6 


.byte 
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327 
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28 0071C^ 
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29 00711 
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264 


.byte 
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33 00715 
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50 
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42 
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243 
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t 
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245 
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37 00721 

38 
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?! 
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.pYTE 
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?r 
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,p 
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7? 
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15 7073?^ 
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44 
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14 00737 
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.BYTE 
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?> 
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»R 
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.byte 
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19 00743 
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.byte 
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20 00744 
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51 00745 
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.byte 
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?B 

25 00748 
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.byte 
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53 00747 
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.byte 
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16 
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|F 
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I9 

5 7 n rti 7 K Ti 

4 4 67 

* ' y. 

R VTC 

• 1 1 u. 

1 4 a 

4k J 

t w 
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77 
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?l 
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74 
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>T 
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r.P , AGK 

g 7 0 7 4 4 R 

cP.isr: 

5? 7 1 3 4 R 

C R , P X T 

000364R 

CR ,CSR* 

177160 

cR.rvn 

C” 0 C.1 ? 6 4 R 

CR.CVt 

00^?56R 

r R , r V T 

0P0270R 

CR.CXT 

0 !7 ’71 7 f («; R 

CR,C1 

0 0 0 1 4 6 R 

rP'.nBi * 

17716? 

CR.rB?* 177164 

CR.DU^ 

002400R 

rP.CXT 

000446R 

CR.FOF 

0 Cl 4 7 4 R 

OR.FRR 

000456R 

r R , F X T 

0"'0B10R 

C R * J N T 

0 ^7 0 1 0 5 R 

CR.TXT 

00037 40 

r D K a M 

-r , 

0707 1 4R 

CR^KRY 

0 1? 7 c 3 (S; R 

CR .ONR 

0000tSR 

CR.CPK^ 

00002PR 

C R , C P G 

RC1;3346R 

CR.RRT 

0 0 0 4 6 fi R 

rR,RSVs 

770044 

C R , ? T n 

0 0 3 4 ? R 

CP ,SLP 

'?7e326R 

CR ,SXTx 

07074? 

CR.TBl 

0r’-06 5?R 

C R , T K R 

372044R 

CR.TOS 

070734R 

C R , 1. B F 

0 i,l 7 6 6 R 

CR ,UBP 

'300072R 

rR.P26 

0P0B27R 

CR,!72q 

0 7 0 K 3 '» R 

t'RF X 

0774 17 

PO Xlf000007 

Pe 

X •< 0 7 3 7 0 

R1. XK000001 

p? x5C0(70002 

R3 

* ^ 0 ” 0 7 7 3 

II 

5J770004 

P5 X1C00000P 

£ET?6 

X 0«4?4? 

SFTPR s 

0 0 5 2 S 2 

SP XX000706 

. APS, 

0r»0r^0(?l 007 






0 0 7 6 6 00 1 





ERRCRS 

nETFrTFQ* 0 





FREF eOPE! 19337, WORDS 





»LP*<nT!CP 
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fCOPYf?IGHT t971, DIGITaU E0<JIPMFNT COPR., MAYMAPD, MASS. 

fVERSION NUMBER! VP05A 

t 000 

iCARD reader driver (CR) 

I A) FOR ASCII INPUT, AT EACH TRANSFER REQUEST 

t ONE CARD WILL BE READ. UP TO S0 CHARACTERS, 

I followed by CR-LF, WILL BE PASSED TO THE 

t calling routine as specified by the word 

t COUNT GIVEN. ClF THIS IS > 41, REMAINING 

I BYTES will be CLEARED'. 

t ALL ERRORS (INCLUDING ’HOPPER EMPTY' UPON 

! AN ’OPEN' CALL) WILL BE TPEATED AS 'DEVICE 

t NOT READY', USER CAN RESUME OPERATION BY 

f rectification of error or refill of hopper 

t AND ENTRY OF 'CO» COMMAND AT KEYBOARD, 

f THE END OF A FILE WILL BE DETERMINED BY 

t recognition of a terminal control CARD*- 

I lP-n-0-1 PUNCHED IN c.c, 1 

I XXXXXXXXXXXXXYXyXYXXXXYXX 

! X X 

I X notes X 

7 X X 

7 XXXXXXXXXXXXXXXVXXXXXXXXX 

I 1) this driver can be assembled FOR USE 
f IN connection with either '026» OR '029' 

I punches or both as indicated by parameter 

7 SPECIFICATION AT START OF SOURCE INPUT 

f AS FOLLOWS I - 


A) 

"ONLY26«0" 

- READ 

ONLY 

' 026' 

CODES, 

B) 

"DNLY29»0" 

- READ 

ONLY 

'029' 

CODES 

C) 

"DEFALT®0" 

- READ 

BOTH 

types 

OF CODE 



with 

'026' 

AS default 

D) 

NIL 

- READ 

BOTH 

types 

OF CODE 



with 

* 029» 

as default 


IN CASES CC) & (D), DPIVER WILL USE DEFAULT 
unless directed otherwise by ENTRY OF A 
CONTROL CARD PUNCHED IN C.C, l!- 

l2«0-7w9 « CODES FOLLOW 

12-11-8-9 ■ '026' CODES FOLLOW 

2) IF parameter "BLANKS" IS DEFINED, C.C, 73*80 

& TRAILING SPACES BEFORE THESE WILL BE DISCARDED, 
WITH 'CR-LF' following LAST VALID DATA, PROVIDED 
THAT CARD FILE IS PRECEDED BY CTL CARD WITH 
12-11-0-7-8-9 PUNCHED IN C.C, 1, IN THIS CASE 
HOWEVER, IF the USER BUFFER IS </■ 82 BYTES, 

ONLY TRAILING SPACE REMOVAL WILL BE EFFECTED, 
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B) IP THE parameter “BINARY” IS DEFINED AT ASSEMBLY, 
XYJiXXXYXXXyyXXXYXYXYXYXYXXYy YYXVXYXXXYXXXXXXXXYXX 


THIS VERSION WILL ALSO ALLOW READING OF CARDS 
IN BINARY format, AS EACH CARD IS READ, 12 BITS FROM 
ALL 80 COLS WILL BE ACCESSED i STORED IN AN INTERNAL 
BUFFER IN A PACKED FORM, I,E, 4 COLS » 3 WORDS AS 
FOLLOWS?- 


C.C.l > WORD I, BITS 15-4 
C.C.2 > WORD 1, BITS 3-Oj WORD 2, 

V t W t ^ ^ n U K f D i ! f ^ ^ f n i...» it iv p 

C.C.4 > WORD 3, BITS 11-0 


BITS 15-B 

«C_. 4^ 

O i J S 


THE PACKED FORM WILL BE TRANSFERRED TO THE USER 
BUFFER UNTIL THIS IS FILLED, ANY DATA THEN REMAINING 
IN THE internal BUFFER BEING RETAINED UNTIL THE 
NEXT READ REQUEST. 


treatment of ascii reading will still follow pattern 

DESCRIBED IN THE PREVIOUS PARAGRAPH WITHOUT EXCEPTION, 

THE ONLY CONTROL CARD WHICH WILL HAVE ANY EFFECT 
IN BINARY reading WILL BE THAT INDICATING E.O.F. (IN 
THIS CASE 12-11-0-1 PUNCHING MUST APPEAR IN AT LEAST 
C.C. 1 THRU 8), 

N.B. WHEN assembled FOR USAGE IN BOTH MODES, AN 'OPEN' 
CALL WILL NOT CAUSE READING OF A CARD TO ALLOW THIS 
TO BE TRANSLATED AS REQUIRED BY THE READ MODE 
SPECIFIED BY THE USER. 

C) DRIVER CAN ALSO 8F USED FOR 80-COLUMN MARK 

sense RFADpR, FOR 40 .COLUMN READER, ECONOMIES 
IN BUFFER SIZE CAN BE OBTAINED BY DEFINITION^ 

AT ASSEMLBY of parameter "MARKS", THIS WILL 
also PREVENT AUTOMATIC REMOVAL OF COLS 33-40 
IN 'BLANKS-SUPPRESS' MODE OF USAGE, 


XXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X NOTE X 

X X 

xxxxxxxxxxxxxYXxxxxxxxyxx 

PARAMETER DEFINITIONS CAN BE MADE DURING PASS 1 
OF THE ASSEMBLY ONLY IF REQD AS DESCRIBED IN 
PAL-llR manual, SECTION 9-2, E.G, 

#CR,LP|,/PA?2<KB|/pAn,DFlCR 
followed BY?- 

ONLY29a0 
BINARY. 0 

blanks. 0 

aC 

,fno<cr><lf> 

XXXXXXXXXXXXXXXXXXXXXXXX 
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TITLF CR 
GLOBL CR 


1 

!;?00000 R0a%0 
000001 Rla%l 

000002 R2«X2 
000003 R3«%3 
000004 R4«%4 
000005 R5aX5 
000006 SP«X6 
000007 PC«X7 

^INTERFACE TABLE* 


000000 

000000 

CRi 

.WORD 0 
•IFNOF 

BINARY 

000002 

224 


.BYTE 

224.0 

000003 

000 


.ENDC 

.IFDF 

BINARY 




.BYTE 

234,0 

000004 



• ENDC 

• ifndf 

MARKS 

003 


.BYTE 

.ENDC 

3 





.IFDF 

MARKS 




.BYTE 

.ENDC 

2 

000005 

104 


.BYTE 

CR.INT-CR,300 

000006 

300 



000007 

022 


.byte 

CR,OPN-CR 

000010 

042 


.BYTE 

cr,tfr-cr 

0000H 

000 


.BYTE 

0,0,0 

000012 

000 




000013 

000 




0000 1 A 

012620 

CR.nam* 

.RAO50 

«CR» 



lOPEN PROCESSOR* 


000016 

004767 

000356 

CR.ONR* 

JSR 

PC,CR.NRY 

000022 

032737 

000400 

177160 

CR.OPN* 

BIT 

#400,«#CR.CSR 

000030 

001372 


BNE 

CR.ONR 




.IFNOF 

0NLY26&0NIY29 




.ifndf 

DEFALT 

000032 

005027 


CLR 

.ENDC 

CPC) + 




.IFDF 

DEFALT 




MOV 

.ENDC 

#104, (pc)+ 

000034 

000000 

CR.TOS* 

.WORD 

0 




.ENDC 

.IFDF 

BLANKS 




CLR8 

CR.ZSW 




.ENDC 

.IFNOF 

BINARY 

000036 

005726 


TST 

(SP) + 

000040 

000523 


BR 

• ENDC 

CR.OXT 




.IFDF 

BINARY 




CLRB 

CR.TFR 




BR 

cr.odn 



CR,OXT* 

INCB 

CR.TFR 




BR 

cr.odn 


# ENDC 


*CURRENT DOB OR 0 IF IDLE 
*FACILITIF3* ascii I^iRUT,OPEN IM 


IALLOW binary if redd. 


*STO buffer size * 96 BYTES 


1(64 IF 40*COL hark SENSE) 

*int»pupt svce at PRL 6 

fOFFSET TO OPEN 

iOFFSET to TRANSFER 

l(NO CLOSE OR SPEC, FUNC.) 


fCARDS IN HOPPER? 


*TF NOT TELL USER TO READY 

*FOR DUAL-PUNCH DRIVER ,,, 
*... SET CONV. table OFFSET 

FOR default punch 
f.,, AS APPROPRIATE 


*IF blahk-suppress version ... 

1... FORCE SUPPRESS OFF 


* IGNORE interim RETURN 
i TAKE completion 

*FOR BINARY VERSION ,,, 
FORCE NO OPEN READ 

1.,. BY MAKING COME HERE 

*,,, before exit 
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^SUBSIDIARY ROUTINES* 




* A) 

RESTART 

AFTER ERROR: 




CP, AGNs 

• IFOF 

BINARY 

JTN BINARY VERSION ... 




TSTB 

CR.T8W 

CHECK IF BINARY READ 




BEQ 

CR.TFR 

jIF NOT CAN JUST start OVER 




0R 

cr.erd 

:ELSE LEAVE USER BUFFER ALONE 



i 9) 

INITIALISE INTERNAL BUFFER POINTERS: 



CR.TSPJ 

MOV 

PC,"(SP) 

:get buffer start 




ADD 

«cr;buf-.»*sp 





MOV 

RSPf (PC5 + 




CR.IBSl 

.WORD 

0 





ADD 

#CR.BSZ,»8P 

:Now get end 




MOV 

PSP, CPC)+ 

rSTORE AS control 



CR.I8F! 

.WORD 

0 





MOV 

(SP)+, (PC5+ 

1..'. ^ AS INIT, PTR 



CP. IBP: 

.WORD 

0 





INCB 

,ENDC 

fPC 

»MUSTN»T COME HERE AGAINI 



fTRANSFFR SET" 

UP processor: 




CP.TFP: 

,IFDF 

BINARY 

|FOR BINARY VERSION ,,, 




BR 

, + 4 

SWITCH TABLE FORCES 




BR 

CR.OXT 

CORRECT INIT, 




BR 

• ENOC 

CR.T.SP 


20004? 

016700 

177732 


MOV 

CR,R0 

:GET ddb address 

000046 

062700 

000006 


ADD 

P6,P0 

% MOVE TO BUFFER STORE 

000^5? 

012046 


MOV 

(P0)«.-(SP) 

SGET BUFFER POINTER 

000054 

011646 


MOV 

PSP,"(SP) 

jjr. rBuiiD buff 'eno 

200056 

161016 


SUB 

PR0,PSP 


000060 

162016 


SUB 

CR0)+,RSP 


00006? 

012627 


MOV 

(sp)+, CPC)+ 

pSAVE RESULT ,,, 

000064 

000000 

CR.U8F: 

.WORD 

0 





,IFDF 

BINARY 

PIN BINARY VERSION 




MOVB 

PR0,R0 

p... CHECK MODE 




8IC9 

#376, R0 





MOVB 

00 . ro . T«w 

jIF ASCII CLEAR SWITCH 




BEQ*’ 

CR.RDC 

pIF BINARY WANTED , 




MOV 

CSPU,R0 

p... SET PTRS ?. SWITCH 




MOV 

CR.IBP,R1 





CLR 

R? 

pSET INTERRUPT FLAG 



CR.BINi 

CMP 

RUCR.IBE 

pINTERNAL BUFF EMPTY? 




BNE 

CP.BLP 




CP.ERO: 

MOV 

CR.IB8,CR,IBP 

pIF SO RESET INTERNAL PTR 




MOV 

R0,-(Spl 

PSAVE USER BUFF PTR 



CP,PDC! 

,FNDC 



000066 

011627 


MOV 

PSP, CPC)+ 


200070 

000000 

CR.UBP: 

,'WORO 

0 


200072 

005036 


CLR 

P(SP) + 

pZEro underway flag 

000074 

012737 

000101 

177160 


MOV 

#101 ,P«CR.CSR 

pENABLE INT % GO FOR CD READ 

20010? 

000207 


RTS 

PC 

pRETURN USER FOR NOW 
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CR.BLPi 


CR.ODNj 


,IFDF 

BINARY 

fWiTH BINARY OATA ,,, 

SWAB 

• R1 

f.,, complete conversion 

MOV 

(Rn4.» (R05 + 

I... i GIVE TO USER 

CMP 

R0,CR.U8E 

yUSFR BUFFER FULL? 

8NE 

CR.BIN 

|IF NOT GET NEXT WORD 

MOV 

RlfCR.lBP 

^otherwise SAVE INT PTR 

TST 

R2 

jCOME HERE ON INTERRUPT? 

8ME 

CR.ODN 

>IF SO MODE 8W, SET 

MOV 

PSP#-(8P) 

lELSE MUST SIMULATE 

MOV 

.•CR2),2(SP) 

f... STORE PC % PS 

SUB 

#16, SP 

I... 1 DUMMY SAVE REGS, 

TST 

CSP) + 

fIGNORE RETURN PC 

8R 

CR.DXT 

f.,, & take completion exit 


• ENOC 


lINTERRUPT SERVICE ROUTINESi 




1 M 

CHECK 

FOP ERROR % COLLECT 

INPUT* 

000104 

010046 

CR.INTi 

MOV 

R0,-(SP) 

ISAVE USER R0 

000106 

016700 


MOV 

CR,UBP,R0 

IGET USER BUFF PTR 


177756 





000112 

013746 


MOV 

##CR.C8R,-CSPI 

% reader STATUS 


177160 





000116 

006326 


ASL 

(SP) + 

fCHFCK FOR SPECIAL CASES 

000120 

103477 


BCS 

CR.ERR 

fGO RETRY IF ERROR 

00012P 

100447 


BMI 

CR.DUN 

fAM MO yp 00*^'# 

000T24 

01 '*146 


MOV 

Rl,-CSp) 

*n6w save user Rl 




,IFDF 

BINARY 

>IN BINARY VERSION 



CR.ISWi 

BR 

.+4 

f... USE APPROPRIATE CONVERS 




BR 

CR.ASC 




^ 8 ) 

binary 

CONVERT & STORE* 





MJV 

1 

I.^r 515 




MOV 

."(SPI 

A INPUT 




MOV 

•SP,-(3P) 

2 COPIES FOR LATER 




COMB 

1(R0) 

*ODD column? 




8PL 

CR.BST 





ASL 

#SP 

*IF SO SHIFT INPUT TO HIGH 




ASL 

PSP 





ASL 

PSP 





ASL 

PSP 





CLRB 

CRn + 

fMAKE NXT INSTR * MOVB 



CR.BSTi 

BISB 

lC8P),-l(Rn 

*SET HIGH BYTE AS REOO, 




MOVB 

(sp)+, cRn + 

*THEN LOW BYTE 




MOV 

RUCR.IBP 

iSAVE PTR 




CMP 

C8P)+,#7400 

>NOW LOOK FOR EOF CARD 




BNE 

CR.8XT 





DECB 

PR0 

I.,, PUNCHED 12-11-0-1 




BPL 

CR.BXT 

f... IN CC 1 THRU 8 




ASLB 

PR0 





BPL 

CR.EOF 

lIF FND IGNORE, REST OF CARD 




BR 

CR.CXT 

fOTHERWiSE TRY NfXT TIME 


.ENDC 
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1 C) 

ASCII CONVERT 1 STORE! 

000126 

113701 

177164 

CR, ASCs 

MOVB 

• i<CR.DB2,Rl 

fUftfl 4 Of ^ 

L 

100002 


D 01 

^ W 

• +6 

000134 

062701 

000340 


ADO 

«340,R1 

000140 

105710 


TSTB 

4R0 

000142 

001011 


BNE 

CR.CVT 

000144 

020127 

000301 


CMP 

R1,A(301 

000150 

’^01472 


BEQ 

CR.EOE 




.IFDF 

blanks 




CMP8 

Rl,«337 




8EQ 

CR.ZON 




,ENOC 

.ifndf 

0NLY26snNLY29 

000152 

020127 

000227 


CMP 

Rl,tf227 

000156 

001505 


BEQ 

CR.029 

000160 

020127 

000270 


CMP 

Rt,#270 

000164 

001476 


8EQ 

,endc 

CR.026 

000166 

010146 

CR.CVTj 

MOV 

R1,-CSP) 

000170 

162701 

000040 


SUB 

#40, R1 

000174 

100403 


BMI 

CR.STO 

000176 

162716 

000017 


SUB 

#17,#Sp 

000202 

(7100772 


BR 

CR,CVT+2 



CR.STO: 

.ifndf 

ONLY268iONl Y29 

30020a 

066716 


ADD 

CR,TOS,»SP 


177624 


,ENDC 


000210 

060716 


ADD 

PC,#8P 

000212 

062716 

000202 


ADD 

#CR,TBL«.»<‘SP 

00021 6 

113620 


M u V B 

sCSPJt, ( R0 5 T 

000220 

020067 

177640 


CMP 

R0,CR,UBE 

000224 

001452 


BEQ 

CR.FXT 

300226 

151710 

CR.BXTj 

BISR 

#PC, <*R0 

000230 

'*10067 

177634 

CR.CXTf 

MOV 

R'0,CR.UBP 

300234 

012601 


MOV 

(SP1+,RI 

000236 

012600 

CR.IXTi 

MOV 

CSP)+#R0 

300240 

000002 


n ! i 



IGET COMPACTED INPUT 

f rn W U P 9 T /* A rs c o o fli a 

} > V j _ , r'. I ^ LI ^ i— V3 C» ' .~ • (p H 

?... TO RANGE >1491 
jIF FIRST C,C. ,,, 

1.,, LOOK FOR E.O.F. 

jFOP BLANK SUPPRESS 
f... LOOK FOR vSUPPRESS ON 


jFOR DUAL PUNCH DRIVER ,,, 
I... CHECK IF 029 CTL 


OR 026 CTL 


yCONVERT CARO CODE 
sFOP EACH 40 IN CODE ,,, 

I... ADD 21 & STRIP 40 

TO get table index 


jPICK APPROP. TABLE 

icompute addr of byte redd 

% STORE IN BUFFER 

j buffer full? 

I IF NOT SET underway FLAG 
jSAVF NEW oniNTFR 

fPESTORF USER REGS, 

I... a EXIT 
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f D) 

CARO COMPLFTEDf 


000242 

105037 

177160 

CR.DUNj 

CLR8 

0«CR,C8R 

fSTOP INTERRUPTS 

000246 

105710 


TvBTB 

4R0 

jiF NO processing yet ,,, 

000250 

001427 


BEO 

CR.RPT 

»... CONTINUE 

000252 

012600 


MOV 

(SP)+,R0 

lOTHERWiSE RESTORE USER R0 

000254 

013746 

000044 


MOV 

•#CP,RSV,-(SP1 

ft NOW SAVE ALL 

000260 

004536 


JSR 

R5,4CSP)+ 


000262 

016700 


MOV 

CR,UBPrR0 

I SET USER BUFF PTR 


177602 


.IFDF 

BINARY 

»FOR BINARY VERSION ,,, 




TOT0 

CR.TSW 

»... CHECK IF BINARY READ 




BME 

.ENDC 

CR.BDN 

lIF SO ACTION ACCRODINGLY 

000266 

016701 


MOV 

CR.UBE,R1 

»FOR ASCII, SFT END PTR 


177572 


,IFOF 

BLANKvS 

ft PERHAPS CHECK SUPPRESS 



C0.ZSW: 

BR 

.+4 

fSWTTCH ON? 




BR 

CR.ADN 

lIF NOT NO SUPPRESSION 




.IFMOF 

MARKS 





TSTB 

«R0 

ITEST IF END OF FILE 




BMI 

CR.DXT 

jSKIP NEXT CALCULATION IF EOF 




CMP 

R0,R1 

»IF BUFFER FULL OMIT NEXT 




BEO 

.+6 





SUB 

#8,.R0 

fOTHERWISE LOSE CC 73-80 




.ENDC 

CMP0 

«CR0) »#240 

rTHEN trailing SPACES 




BEQ 

.-4 





T3T8 

CR0) + 

F ADJUST PTR WHEN DONE 



CR.ADNJ 

.ENDC 


■ 

000272 

105041 


CLRB 

-(RU 

fCLFAR REST OF BUFFER 

000274 

020100 


CMP 

R1,R0 


000276 

101375 


BHI 

."4 


000300 

112721 

000215 


MOVB 

#215, CR1)+ 

fmove in carriage return 

000304 

112721 

000012 


MOVB 

#012, (Rl)+ 

FMOVE in line FFED 

000310 

016700 

177464 

CR.DXT; 

MOV 

CR,R0 

fGET dor address 

000314 

000170 

000014 


JMP 

•14CR0) 

jtake completion exit 




.IFDF 

BINARY 





MOV 

CR,I8S,P1 

JFCP BINARY, INTT IN? PTR 




MOVB 

«»R0,R2 

JFXIT IF EOF SEEN 




8MI 

CR.DXT 

lALSO SETS INTERRUPT FLAG 




JSR 

PC,CR.BTN 

fELSe go move data to usfr 




MOV 

##CR.SXT,R5 

FIF come back, more READ PEOD 




JMP 

.ENDC 

4CR5) 

fso take system exit 
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iSPECIAl. CASE 

PROCESSING: 




I A) 

ERROR ROUTINE: 


000320 

105037 

177160 

CR.ERRj 

CLRB 

•RCR.CSR 

ISTOP INTERRUPTS 

000324 

004767 

000050 


JSR 

PC. CR.NRV 

llNFORM operator 

000330 

004767 

177606 

CR.RPT: 

J3R 

PC.CR.AGN 

:IF RETURN TRY AGAIN 

000334 

0007 40 


BR 

CR.IXT 

% EXIT FOR NOW 



: 8) 

END OF 

FILE CARO SEEN: 


000336 

016701 

r*S 

W * • V r i 

MOV 

CR.Rl 

jSET DDR address 


177436 


.IFNOF 

BINARY 

fEOR SIMPLE VERSION ,,, 

000342 

016161 

000010 


MOV 

10(Rl),16fRl) 

NO DATA READ ON EOF 


000016 


.ENDC 

.IFDF 

BINARY 

IMAYBE some if BINARY ... 




ADD 

#16, R1 

:SO MOVE TO UNUSED COUNT STORE 




MOV 

R0,PR1 

R COMPUTE VALUE REQD 




SUB 

CR.U8E,»R1 





A SR 
.ENDC 

HRl 

AS WORDSI 

000350 

006110 


COM 

PR0 

:SET flag 

000352 

152737 

000002 

177160 

CR.EXT: 

8ISR 

#2,P#CR.CSR 

MLLOW REST OP CARD THRU 

000360 

000723 


BR 

CR.CXT 




» C3 

control 

CARD SEEN: 





•IFNDF 

0NLY26&ONLY29 

:EOR DUAL PUNCH DRIVER ... 

000362 

012767 

000104 

177444 

CR.026! 

MOV 

#104,CR.TOS 

J... SET table offset ,,, 

000370 

000770 


8R 

CR.EXT 

1... & IGNORE REST OF CTL CARD 

000372 

005067 

177436 

CR,029: 

CLR 

CR.TOS 


000376 

000766 


BR 

.ENDC 

CR.EXT 





.IFDF 

blanks 

jIN SUPPRESS VERSION 



CR.ZQN* 

MOVR 

#t,CR.ZSW 

I.,.SET SUPPRESS ON 




BR 

CR.EXT 

: AGAIN IGNORE REST OF CARD 


.ENOC 


iREAOFR Nni RFADY vSHBROUT INP| 


000400 

016746 CR.NRV: 
177410 

MOV 

CR,NAM,-(SP5 

itdentify device 

000404 

012746 

000402 

MOV 

#402, -(SP3 

:GIVE ONT READY CODE 

000410 

000004 

lOT 


^ CALL edp 

00041? 

000207 

RTS 

PC 

ITRY again if CDME BACK 


» 


IMISCFLIANEOUS definitions: 
177160 CR,CSR«i7716a 
177162 CR.DB1«177162 
177164 CRsDB2«177l6d 
5100042 CR,SXT»42 
000044 CR,R3V«44 
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CR.TBL* 




yPAf?ITY 

ASCII 

CONVERSION 

TABLE FOB 029 




,TFNDF 0MLY26 


000414 

240 


.BYTE 

240 

JSPACE 

000415 

261 


.BYTE 

261 

It 

000416 

262 


.BYTE 

262 

112 

000417 

063 


.byte 

63 

13 

000420 

264 


.BYTE 

264 

f 4 

000421 

065 


.BYTE 

65 

15 

00042? 

066 


.BYTE 

66 

16 

000423 

267 


.byte 

267 

17 

000424 

270 


.BYTE 

270 

18 

000425 

240 


.BYTE 

240 

lENPTY 

000426 

072 


.byte 

72 

1 1 

000427 

243 


.BYTE 

243 

1 ^ 

000430 

300 


.BYTE 

300 

1 ^ 

000431 

047 


.byte 

47 

» 1 

00043? 

275 


.BYTE 

275 

j a 

000433 

042 


.BYTE 

4? 

1 " 

000434 

071 

1 

.BYTE 

71 

19 

000435 

060 

.byte 

60 

10 

000436 

257 


.BYTE 

257 

1/ 

000437 

i?3 


.BYTE 

123 

1 s 

000440 

3?4 


.BYTE 

324 

IT 

000441 

125 


.BYTE 

125 

I'l 

00044? 

1?6 


.BYTE 

126 

IV 

000443 

327 


.BYTE 

327 

iN 

000444 

330 


.BYTE 

330 

ix 

000445 

131 


.BYTE 

131 

lY 

000446 

240 


.byte 

240 

lEMPTY 

000447 

335 


.BYTE 

335 

n 

000450 

254 


.BYTE 

254 

1 f 

000451 

245 


.BYTE 

245 

ix 

00045? 

137 


.BYTE 

137 

1? 

000453 

276 


.BYTE 

276 

f > 

000454 

077 


.BYTE 

77 

1? 

000455 

132 

J 

.BYTE 

132 

iz 

000456 

055 

.BYTE 

55 

* • 

000457 

312 


.BYTE 

312 

1 J 

000460 

113 


.BYTE 

113 

ix 

000461 

314 


.BYTE 

314 

IL 

00046? 

115 


.BYTE 

115 

I M 

000463 

116 


.BYTE 

116 

1 N 

000464 

317 


.BYTE 

317 

lO 

000465 

120 


.byte 

120 

fP 

000466 

321 


.BYTE 

321 

JO 

000467 

240 


.BYTE 

240 

lEMPTY 

000470 

041 


.BYTE 

41 

1 1 

000471 

044 


.BYTE 

44 

1$ 

00047? 

252 


.BYTE 

252 

1 * 

000473 

251 


.byte 

251 

1) 

000474 

273 


.BYTE 

273 

1 1 

000475 

134 


.BYTE 

134 

1 P 

000476 

322 


.BYTE 

322 

IP 


f 
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000477 

246 

.BYTE 246 


000500 

101 

.BYTE 101 

1 A 

000501 

102 

.byte 102 

IB 

000502 

303 

•BYTE 303 

?c 

000503 

104 

.BYTE 104 

jo 

000504 

305 

.BYTE 305 

>E 

000505 

306 

.BYTE 306 

?F 

000506 

107 

.BYTE 107 

J<5 

000507 

110 

.BYTE 110 

JH 

000510 

240 

.BYTE 240 

JEMPTY 

000511 

333 

.BYTE 333 

? 1 

000512 

056 

.BYTE 56 

f • 

000513 

074 

.byte 74 

f< 

000514 

050 

.BYTE 50 

t( 

000515 

053 

.byte 53 

tf 

000516 

336 

.BYTE 336 

M 

000517 

311 

.BYTE 311 
.ENDC 

fJ 


jPARITY ASCII CONVEPSIDN TASLF FQP ^7^ f^UNCNj 
,!FNDF 0NLY29 


000520 

240 

.BYTE 240 

JSPACE 

000521 

261 

.byte 261 

Jl 

000522 

262 

.byte 262 

?2 

000523 

063 

.BYTE 63 

?3 

000524 

264 

.BYTE 264 

1 4 

000525 

065 

.byte 65 

J5 

000526 

066 

,BYTE 66 

?6 

000527 

267 

.byte 267 

J7 

000530 

270 

.BYTE 270 

|8 

000531 

240 

.BYTE 240 

iEmpty 

000532 

137 

.BYTE 137 

1 Q 

000533 

275 

.BYTE 275 

I a 

000534 

300 

.BYTE 300 

1 1 

000535 

336 

.byte 336 

i A 

000536 

047 

.BYTE 47 

1 1 

000537 

134 

.BYTE 134 

? P 

000540 

071 

.BYTE 71 

|9 

000541 

t 

060 

.BYTE 60 

10 

000542 

257 

.byte 267 

1/ 

000543 

123 

.byte 123 

is 

000544 

324 

.BYTE 324 

iT 

000545 

125 

.BYTE 125 

lU 

000546 

126 

.BYTE 126 

iv 

000547 

327 

.BYTE 327 

* w 

000550 

330 

.BYTE 330 


000551 

131 

.BYTE 131 

»Y 

000552 

240 

.BYTE 240 

iEmpty 

000553 

273 

.BYTE 273 

1 f 

000554 

254 

.BYTE 254 

f » 

000555 

050 

.BYTE 50 

1 ( 

000556 

042 

.BYTE 42 

■ H 

000557 

243 

.BYTE 243 


000560 

246 

.byte 245 

tx 

000561 

132 

.byte 132 

iz 


» 
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id00'S6? 

055 

.BYTE 

55 

f • 

000563 

312 

• BYTE 

312 


00056^ 

113 

.BYTE 

113 

*K 

000565 

314 

.BYTE 

314 


000565 

115 

.BYTE 

115 

j M 

000567 

116 

.byte 

116 

|N 

000570 

317 

-BYTE 

317 

• n 

p ^ 

000571 

120 

iSYTE 

120 

fp 

000572 

321 

.byte 

321 

J 0 

000573 

240 

.BYTE 

240 

f empty 

000570 

072 

.BYTE 

72 

} t 

000575 

044 

.BYTE 

44 

1% 

000576 

252 

.BYTE 

252 

1 * 

000577 

333 

.BYTE 

333 

f c 

000600 

276 

.BYTE 

276 

;> 

000601 

246 

.BYTE 

246 


00060? 

322 

.BYTE 

f 

.BYTE 

322 

jR 

000603 

053 

53 

J + 

000604 

101 

.BYTE 

101 

1 4 

000605 

102 

.BYTE 

102 

tB 

000606 

303 

.BYTE 

303 

tc 

000607 

104 

.BYTE 

104 


000610 

305 

.BYTE 

305 


0006U 

306 

.BYTE 

306 

»F 

000612 

107 

.BYTE 

107 


000613 

110 

.BYTE 

110 

IH 

000614 

240 

.BYTE 

240 

fFMPTY 

000615 

077 

.BYTE 

77 

?? 

000616 

056 

.BYTE 

56 

r « 

000617 

251 

.BYTE 

251 

r) 

000620 

335 

.BYTE 

335 

n 

000621 

074 

.byte 

74 

f < 

000622 

041 

.BYTE 

41 

f 1 

000623 

311 

000001 

.BYTE 311 
.ENDC 

itntebnal buffer for binary 

,IFOF BINARY 

CR.BUF: .XFNDF HARKS 
CR,BSZ«120, 

.ENDC 

,IFDF MARKS 

CR.BSZ«60. 

.ENDC 

, b.+CR.BSZ 

• ENDC 
.END 

fl 

STORAGE! 


38 



000000 ERRORS 


CR 

000000RG 

CR.AGN ,000042R 

CR.ASC 

000126R 

CR.BXT 

000226R 

CR.CSR ■ 177160 

CR.CVT 

000166R 

CR.CXT 

000230R 

CR.081 « 177162 

CR.D82 

■ 177164 

CR.DUN 

000242R 

CR.DXT 000310R 

CR.EOF 

000336R 

CR.ERR 

000320R 

CR.EXT 000352R 

CR.INT 

000104R 

CR.IXT 

000236R 

CR.NAM 000014R 

CR.NRY 

000400R 

CR.ONR 

000016R 

CR.OPN 000022R 

CR.RPT 

000330R 

CR.RSV ■ 000044 

CR.STO 000204R 

CR.SXT 

■ 000042 

CR.TRL 

000414R 

CR.TFR 000042R 

CR.TOS 

000034R 

CH.URE 

000064R 

CR.UBP 000070R 

CR.026 

000362R 

CR.0R9 

000372R 

PC •X000007 

R0 

■X000000 

R1 

■X000001 

R2 ■%000002 

R3 

■X000003 

R4 

t 

aX000004 
■ 000624R 

R5 ■%000005 

8P 

■X000006 
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APPENDIX A 


CHARACTER CODES 


A.l CARD CODES 


CARD CODES 
(ANSI X3.26-1970) 


'yZone 

Digirs^ 

12 

11 

0 

1 

12 

0 

12 

11 

11 

0 

1 

12 

9 

11 

9 

0 

9 


12 

0 

9 

12 

11 

9 


m 

B 

B 

space 

D 

fl 

D 

■ 


1 

a 

m 

n 

1 

B 

fl 

B 

■ 

jggn 

lai 





2 

a 

a 

□ 

BB 

11 

B 

a 

u 


EB 


021 



3 

B 

a 

a 

3 

Li 

B 

B 

B 

■ 

EEQ 

EH 





4 

B 


a 

QB 

B 

B 

B 

■ 







5 

B 

B 

o 

Bi 

B 

B 

B 

■ 



DB 




6 

B 

B 

□ 

Bi 

B 

B 

B 




QQI 




7 

B 

m 

Q 

QB 

B 

B 

a 


IQI 


IQI 




8 

B 

BB 

a 

QB 

B 

B 

a 

■ 


1333 






9 

rr^ 


fz] 

9 i i 

m 


n 


8-1 

■ 

■ 

■ 

grave 

Q| 

Q| 

B 

■ 


mm 



no 

DLE 

1 8-2 

a 


\ 







1 






8-3 


m 

, 

111 

1 

t 

B 

■ 

01 






8-4 

B 

m 

m 


Q| 

B 

B 

■ 

la 

IQI 


OQI 



8-5 

B 

a 

B 

’ 




■ 

03 

la 


I2QI 



8-6 

B 

m 

a 

= 





so 

RS 

ACK 




8-7 

B 

a 

a 

” 



_J 

■ 

m 


EB 

gnni 




NOTES 

To determine the card punch for a particular character, locate the character 
in the table and read the corresponding zone punch and then digit punch. 

For example, the card punch for a % is 0-8-4. 

To obtain the character corresponding to a particular card punch, locate the 
junction of the zone punch and the digit punch. For example, the character 
corresponding to the card punch 12-1 1-9 is r. 

t I 

I Slots that do not contain characters represent card punches for which there I 

j are no ASCII equivalents. ! 
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PDP-11 PUNCHED CARD CODES 


A. 2 PDP-11 PUNCHED CARD CODES 


CHARACTER 

Parity 

ASCII 

DEC029 

DEC026 

CHARACTER 

Parity 

ASCII 

DEC029 

DEC026 

{ 

173 

12 0 

12 0 





} 

175 

11 0 

11 0 





SPACE 

24^ 

NONE 

NONE 

@ 

300 

8 4 

8 4 

• 

^f41 

12 8 7 

12 8 7 

A 

101 

12 1 

12 1 

It 

{742 

8 7 

0 8 5 

B 

102 

12 2 

12 2 

# 

243 

8 3 

0 8 6 

C 

303 

12 3 

12 3 

$ 

044 

11 8 3 

11 8 3 

D 

104 

12 4 

12 4 

% 

245 

0 8 4 

0 8 7 

E 

305 

12 5 

12 5 

& 

246 

12 

11 8 7 

F 

306 

12 6 

12 6 

I 

047 

8 5 

8 6 

G 

107 

12 7 

12 7 

( 

050 

12 8 5 

0 8 4 

H 

110 

12 8 

12 8 

) 

251 

11 8 5 

12 8 4 

I 

311 

12 9 

12 9 

•k 

252 

11 8 4 

11 8 4 

J 

312 

11 1 

11 1 

+ 

053 

12 8 6 

12 

K 

113 

11 2 

11 2 


254 

0 8 3 

0 8 3 

L 

314 

11 3 

11 3 


055 

11 

11 

M 

115 

11 4 

11 4 


056 

12 8 3 

12 8 3 

N 

116 

11 5 

11 5 

/ 

257 

0 1 

0 1 

0 

317 

11 6 

11 6 

0 

060 

0 

0 

P 

120 

11 7 

11 7 

1 

261 

1 

1 

Q 

321 

11 8 

11 8 

2 

262 

2 

2 

R 

322 

11 9 

11 9 

3 

063 

3 

3 

S 

123 

0 2 

0 2 

4 

264 

4 

4 

T 

324 

0 3 

0 3 

5 

065 

5 

5 

U 

125 

0 4 

0 4 

6 

066 

6 

6 

V 

126 

0 5 

0 5 

7 

267 

7 

7 

W 

327 

0 6 

0 6 

8 

270 

8 

8 

X 

330 

0 7 

0 7 

9 

071 

9 

9 

Y 

131 

0 8 

0 8 


072 

8 2 

11 8 2 

Z 

132 

0 9 

0 9 


273 

11 8 6 

0 8 2 

I 

333 

12 8 2 

11 8 5 

< 

074 

12 8 4 

12 8 6 

\ 

134 

0 8 2 

8 7 

= 

275 

8 6 

8 3 

] 

335 

11 8 2 

12 8 5 

> 

276 

0 8 6 

11 8 6 

+ or " 

336 

11 8 7 

8 5 

7 

077 

0 8 7 

12 8 2 

or _ 

137 

0 8 5 

8 2 







APPENDIX B 


ALGORITHMS USED IN CRll/CMll CARD READER DRIVER 


B.l HOLLERITH TO ASCII CONVERSION 


Examination of the valid Hollerith character codes listed at Appendix 
A shows that in any one character there can be only one punch, if any, 
in control zones 12, 11, and 0. When translated by the CRll Control 
into byte form, as follows: 




12 


11 


8 


loctal digit corr. 
Izones 1-7) 


it can be seen that all characters must fall into one of the octal 
ranges: 0-37, 40-77; 100-137, 200-237. Moreover, within each range, 

the values are in fact restricted to the first seventeen. Basically, 
it is therefore possible to establish a table in four sections, each 
corresponding to one of these ranges, or two like tables if both 026 
and 029 punches are considered. 


Further, if the bytes so form.ed are transferred from, the CRll buf- 
fer into a register, values in the last range produce negative results 
by sign extension. If 340g is added to these, their range now becomes 
140-177; a natural progression f rom tiie other three. Using a second 
register as a form of counter, a relative index to the required ASCII 
equivalent within its appropriate table section can be thus established 
simplv by addincr 21- to the low— order 5 bits of the Hollerith code for 
each time 40 g can be successfully subtracted from the high-order three 
bits. (In practice, this is accomplished by subtracting 17^ from one 
register containing the final index, to remove the 40 while adding 21, 
while reducing the counter register.) To the index must then be added 
the appropriate offset into the correct table for the punch concerned 
(0 for 029 and 104o for 026 if both tables are present) , The address 
of the ASCII value required is merely the index added to a computed 
absolute table base. 


B. 2 BINARY PACKING 

Basically, the packed format in which binary data is passed to a user 
program can first be considered as a problem of packing two 12-bit 
words representing card columns into three 8-bit bytes as : 

. Byte 0 I Byte 1 Byte 2 

cc 1 (12-5) I cc 1 (6-9) jcc 2 (12-1) cc 2 (2-9) 


B-1 



or, in other words, the first column is shifted to the high-order 
position over the first two bytes while the second column remains in the 
low-order position in which it was read over the last two. Using a 
simple flip-flop type of switch, the algorithm distinguishes between 
columns 1 and 2 to accomplish this during the appropriate interrupts. 
Columns 3 and 4 require similar treatment. Owing to the byte address- 
ing scheme of PDP-11, however, the result so obtain means that the 
bytes within each word are misplaced. A simple byte-swap when the 
word is passed to the user corrects this. 

B.3 SWITCHING 

The version of the driver which allows binary processing requires sev- 
eral switches as noted in the main text. Because the Monitor will 
never allow the driver to be called to perform more than one operation 
at a time, there is no need for the driver to be restricted to re- 
entrant code. As a result, the general form of switching used is of 
the form: 

SWITCH: BR .+2 

BR PROC.B 

PROC.A: 


When the low-order byte of SWITCH is cleared, the effective instruction 
at that point then cecomes BR .+2 and the branch to process B is taken. 
If on the other hand that byte is then incremented, the instruction be- 
comes BR .+4 and process A is entered. 

A variation of this technique has been used at the start of the 
TRANSFER routine in the binary-type driver firstly to allow OPEN to 
stop a first read as described in the main text, and secondly to cause 
execution of the once-only code needed to initialize the internal buf- 
fer pointers. This extends the single fixed branch to a table: 

CR.TFR: BR .+4 (Allows READ w/o to proceed) 

BR CR.OXT (Ignore first read after OPEN) 

BR CR.ISP (Initialize buffer pointers) 

If OPEN is called, the switch byte is cleared causing the first trans- 
fer call to branch to CR.OXT (BR .+2) . The routine at CR.OXT merely 
increments it back to the BR .+4 state and exits. The next entry at 
CR.TFR (or the first if OPEN is not called) takes branch to CR.ISP. 

The last instruction of this routine, which also immediately precedes 
CR.TFR, executes INCB @PC, hence finally setting the switch byte for 
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BR .+6 leading to all successive calls beginning normal execution im- 
mediately, until either the driver is re-initialized by a new OPEN or 
is removed from core and brought in afresh. 
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APPENDIX C 


UNPACKING BINARY DATA FROM THE CRll/CMll CARD READER DRIVER 
A SUGGESTED ALGORITHM 


1. Each four card-columns of data passed to a user program in binary 
format appear in memory as follows, when the byte-addressing scheme 
of PDP-11 is considered: 


1 

cc 1 j cc 2 

cc 1 

cc 3 

cc 2 

cc 4 

1 

1 

cc 3 1 

CC 4 

6^9 jl2-l 

12-5 

12-5 

2-9 

2-9 

6-9 1 

12-1 

BYTE 0 

BYTE 1 

BYTE 2 

BYTE 3 

BYTE 4 

BYTE 

5 


At first sight, a simple algorithm to restore the original 12-bit 
card column images from this format might seem a problem. If, how- 
ever, the bytes in each word are first switched, the format now shows 
a more logical sequence: 


cc 1 

cc 1 

1 cc 2 

cc 2 

cc 3 

i 

cc 3 ' 

cc 4 

cc 4 

12-5 

6-9 

: 12-1 

2-9 

12-5 

6-9 ; 

12-1 

2-9 

BYTE 0 

BYTE 

1 

BYTE 2 

BYTE 3 

BYTE 

4 

BYTE 5 


and the solution reduces merely to one of splitting two like sets 
of three bytes into two 12-bit words. The first step, therefore, 

£s to perform the necessary swap across all words transferred. As- 


suming the 

data has been 

read into 

a line buffer as defined und{ 

DOS, the appropriate code 

might be : 


MOV 

#LINE+4,RJ3 

;GET 

BYTE COUNT FROM LINE HDR 

MOV 

CR01+,R1 

/ • • • 

& BUMP POINTER TO FIRST DATA 

ADD 

Rj2(,Rl 

;USE 

CNT TO SET LINE END 

MOV 

Rj2(,R2 

;SAVE 

START POINTER 

SWAB 

CR2) + 


& DO BYTE SWITCH 

CMP 

R2,R1 



BLO 

. •^4 




2. The column 1 image is simply obtained by taking byte 0 as the 
high-order part and byte 1 as the low-order part of a word which is 
then shifted until the required 12 high-order bits are right- justified. 
Column 2 image is similarly extracted from byte 1 and byte 2 except 
that no shift is needed. Using a simple flip-flop type switch to 
differentiate between odd and even columns, the necessary sequence 
might be: 
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CLR 

R2 

;INIT. FLIP-FLOP 

MOVB 

(Rj2f) + ,-CSP) 

;GET FIRST BYTE 

SWAB 

@SP 

; . . . INTO HIGH ORDER SPOT 

MOVB 

CRi2l) + ,@SP 

; . . . & 2ND INTO LOW 

COM 

R2 

; FIRST COLUMN? 

BPL 

B 


ASR 

@SP 

;IF SO, RIGHT JUSTIFY 

ASR 

@SP 


ASR 

@SP 


ASR 

@SP 


DEC 

RJ0 

;STAY AT SECOND BYTE 

BIC 

#i7j2(jaf)2f)af,@sp 

; REMOVE GARBAGE 

;REQD. IMAGE NOW ON STACK TOP 

; . . . & CAN BE PROCESSED AS NECESSARY 

;END OF BUFFER? 



CMP 

RJ3,R1 

BLO 

A 

;IF NOT, GET NEXT IMAGE 


NOTES 

a) The stack is used rather than a register to build the image, as this 
avoids the problem of possible sign extension in the operation at 
A+4. After processing, the image should of course be removed be- 
fore proceeding to the next. 

b) For mere storage of images in another buffer, a further register 
might be used as a pointer, e.g., MOV #BUFFER,R3 and all refer- 
ences to SP can then be changed to §R3 until the one at B, which 
should become (R3)+ to step to next word. 
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APPENDIX D 


PREPARATION AND USAGE OF CRll/CMll CARD READ DRIVER 


D.l PREPARATION 

It has been shown that, by defining the relevant conditional parameters 
at assembly time, the user can tailor the card-reader driver to meet 
the particular needs of his installation. To allow him to do this, 
the driver is supplied as a source tape. The following paragraphs il- 
lustrate special points to be observed in preparing this tape for usage. 
It is assumed that the user is already familiar with the general opera- 
ting procedures of the PAL-llR Assembler and Link-11 Linker. 

D.1.1 Assemb ly 

In order to enter the definitions for the required optional parameters, 
the user should specify that the keyboard will be used to supply input 
on Pass 1 only. Thus, assuming a disk-to-disk assembly with line- 
printer listings, the response to PAL-llR request for command input 
might be: 

#CR.OBJ,LP: ,LP: <KB:/PA:1,DF:CR.PAL 

After this, the user can begin to type in the definitions he needs, 
e.g. : 


BLANKS = jZf 
BINARY = J0 

and then terminate by calling the Monitor to signal the end of this 
particular input as : 

1C CCTRL/C 

.END CTwo carriage-returns are essential after .END) 

Thereafter, the assembly proceeds in the normal way. 

For easy reference, the possible parameters and their effects 
are summarized below: 

Parameter Driver Version Size 

Nil ASCII only - 026 or 029 (029 default) 200 

DEFALT ASCII only - 026 or 029 (026 default) +1 
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Parameter 

Driver Version 

Size 



ONLY26 

ASCII only - 026 punch only 

-51 



ONLY 2 9 

ASCII only - 029 punch only 

-51 



BLANKS 

Auto-deletion of cc 73-80 & trail- 
ing spaces by Special Card Control 

+18 



BINARY 

Adds binary to other capabilities. 

+ 161 



M7\ -DVO 

O L.. J- J- U'? VJi VJ,A-J-VC:J- ** U 

A 

on 

IDdO 



-4 

on 

BLANKS 



-30 

on 

BINARY 


NOTE 

Signed size values should be added to the basic size 
for the ASCII-only version, e.g. , driver assembled 
with ONLY29, BINARY, and BLANKS defined is 328 words 
long. Also first four mutually exclusive.) 


D. 1. 2 Linking 

The output file from PAL-llR should then be linked to paper tape, using 
Link-11. It must be origined at location J0 if it is to be used within DOS, 
i.e., the Command String in this case might be: 

#PP: ,LP:<CR/B:)2f/E 


D.1.3 Inclusion in DOS Monitor Library 

The DOS Monitor has already been set up to recognize the Card Reader 
Driver. Therefore, the user need merely incorporate the linked module 
into the Monitor Library, either by making the paper tape part of the 
input while building the system on disk by SYSLOD or by including it in 
the Monitor Library on a DECtape using MODS. The associated descrip- 
tions for these programs give details of method. 


D.2 USAGE 

In general, a card file consists merely of the data cards followed by 
an EOF card, then a blank. It has been shown that control cards may 
also be included to force the driver to function in a special way. 

The format for each of these is summarized below; 


EOF 

12-11-0-1-6-7-8-9^ 

in 

c. c. 1 

for ASCII , 



in 

c.c. 1- 

8 for Binary 

029 codes 

12-0-2-4-6-8^ 

in 

c.c. 1 

'j If also in 

026 codes 

12-2-4-8^ 

in 

c.c. 1 

1 c.c. 80, card 

Suppress 




1 is symmetrical 

Blanks 

12-11-0-7-8-9 

in 

c.c. 1 

J & can be used 





any way up. 


^12-11-0-1 for Version 005h Monitor Release 4A. 
^12-0-7-9 for Version 005A Monitor Release 4A. 
^12-11-8-9 for Version 005h Monitor Release 4A. 
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After placing the card file in the hopper, the operator should 
ensure that power has been turned on and that both the MOTOR START & 

READ START buttons have been pressed (both indicators green) . The 
read will then respond to any program request for input from device 
CR. 

If an error occurs at any time, the Monitor message "A002 12060" 
will indicate this. The operator should rectify the error if possible, 
replace the last card read with the remainder of the deck in the hopper, 
re-^enable the reader and type CO to resume. 
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PCll HIGH-SPEED PAPER TAPE READER DRIVER 


The paper tape reader driver provides the device dependent I/O func- 
tions for the PDP-11 paper tape reader. To allow the common I/O pro- 
cessor to he device independent / the paper tape reader driver is a 
block processor. Any size block may be processed by the driver, but 
to provide the most efficient operation the standard buffer size is 
32 words. The driver code is position independent. 


1.1 DESCRIPTION 

The paper tape reader driver consists of two sections: the standard 
driver header and the driver body. 


The driver header gives the following information about the paper 
tape driver : 

1. Capabilities 

a. Single user 

b. Input only device 

c. ASCII and BINARY both may be handled 

d. Non-file structured 

2. 32 word standard buffer size 

3. Interrupt entry address and priority (4) 

4. Dispatch table containing entry addresses for: 

a. Open 

b. Transfer 

5. Internal word count and buffer address 


The driver body contains the code to perform the three paper tape 
reader functions: opening, reading (transfer), and interrupt servic- 
ing. 

1.2 OPEN 

The OPEN function for the paper tape reader exists to give the user a 
means to ensure the reader is ready for operation (i.e., contains tape, 
is turned on, etc.). The OPEN routine tests the tape reader status 
register for an error indication. If such exists, an AO 02 message 
(Device Not Ready) is printed to the operator. The check is repeated 
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following a return from the Diagnostic Print routine indicating that 
the operator has requested continuation. Because no interrupt is neces- 
sary to make this check, the routine merely removes the interim return 
address stored on the top of the processor stack by the calling sequence 
and takes the completion exit immediately (since this driver is for 
single-use only, there can be no queue for its services, hence it need 
take no action to cater for a queue situation) . 

1.3 TRANSFER 

The TRANSFER entry initializes the driver and initiates the read of the 
first character. Initialization consists of storing the byte count 
(2 * Word Count) and buffer address from the calling DDB into the driver 
header positions reserved for them, and enabling the reader interrupt. 

1.4 INTERRUPT SERVICE 

Interrupt servicing is the heart of the paper tape reader driver. The 
following flow chart gives a detailed explanation of this function. 



It should be particularly noted that an error during interrupt ser- 
vicing signifying "Reader Off" or "Out of Tape" is considered an "End of 
Data" and is treated accordingly. 
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1.5 Program Listing 

A complete assembly listing of the driver follows. 
CV.FR i3^SEP»72 03?'?9 PAGF 1 


'-’v' \ 




r :^.A 


i “• . 

\ ' 


^COPYRIGHT 1971, riGITAl FQHIPMFK-T rOPF,,\ maYMARC, YaSS*. 

.. . ft vAtik'i 

VP'fviC- -■■ - 


r 

t ■■ ■> 


IVERSTOM ^'U-^BFRf 


VP01 A 


\ PAPFR TAPP READFR DRIVER fPRJ 

.title nv,DR 
.GinpL PR 


e 


000000 

R0«%e 





9 


000001, 

Ri»5:i 





10 


000002 

R2«%2 




■ •. 

11 


000003 

R3»«3 





12 


0*^0004 

R4b%4 




L’' 

13 


000005 

R5sX5 





14 


000006 

SPsjje 


■ f - ; 



15 


000007 

Pt*%7 


- 's. 



16 



t PRFA^^BLE 




17 

7 0000 


PRJ 

.WORD 

0 " 

I6CURPEN'T D6CP CR 0 

18 

70002 

234 


,8YTF 

PP ,PP 

1 

FACIITTTFS INDIfATOR 

19 

70003 

iT' ^ C? 


.BYTE 

0 



20 

70004 

002 


.BYTE 

2 

1 

STANDARD BUFFER SIZE / 16 

21 

7 0005 

056 


.BYTE 

PR , T ^iT1l»Pp 

1 

INTERRUPT ADDRESS 

22 

70006 

200 


.byte 

20 0 

f 

PRICRTTY 4 INTERRUPT 

23 

70007 

177 


.byte 

PR .rpN'-^pR 

1 

DISPATCH DPFN 

24 

70710 

722 


.BYTE 

PR , TFR.,PR 

1 

transfer fIN) 

25 

7001 1 

000 


.byte 

0 

t 

CIOSE 

26 

70012 

000 


.byte 

0 

t 

SPECIAL EUNCTTCNS 

27 

70013 

000 


.BYTE 

0 1 dummy 



28 

70014 

063320 

RR.NAMi 

,RAn50 

1 FR « 



29 

70016 

000000 

IK'TCNTi 

.WORD 

0 

f 

INTERNAL COUNT 

30 

70020 

000000 

STOADD! 

,NORO 

0 

1 

STORE NEXT ADDRESS 

31 



f MAIK DRIVER 




-32 



1 PEGIK 

TRA^SFFR 



33 

70022 

016700 

\777^2 

PR.TFRi 

MDV 

PR,R0 

I 

GET CDS' ^ 

34 

70026 

016004 

000010 


Mnv 

10 (R0) ,R4 

1 

preserve user count 

35 

70032 

0063(714 


A6L 

R4 

f 

bvtf roHNT 

36 

70034 

017467 

1 77756 


MDV 

R4 , TNTCNT 



37 

7 004 0 

016067 

000006 

1 77752 


MOV 

6 fR0D .STOADD 

1 

SAVE BUFFER ADDRESS 

38 

00046 

052737 

000101 

1 77550 


BIS 

,#«i*PR’,cSR 

? 

enable TNTERRl.PT 

2.9 

70054 

000207 


RTS 

pr 

^RETURN 

40 



1 THE PP 

T8 DRIVEN oy jme FDLinWTKG INTERRUPT RfLTINF 

41 



f 





42 

70056 

00*^737 

PR. INTI 

TBT 

R*PR ,rSR 

f 

TEST FOR FRPOR 



177657 






43 

70062 

100414 


RMI 

PR ,FRR 

f 

YFS 

44 

70064 

1 13777 

1 77562 

1 77726 


MHVB 

•(VPR ,nUF,6ST0ADD 


f STORF dhapACTER 

45 

70072 

005267 

1 77722 


P’C 

STCADH 

t 

UPDATE 

46 

70076 

0'?K267 


INC 

INTENT 

f 

POINTERS 
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CV.PR 


HACPC VC04-i4 i:^^SEP,72 PAGF 1* 


47 

48 

0010? 
0 010 4 

1 777 1 4 
701474 

759737 

5FQ 

BTS 

PR.FNE 

111 01 ,«#PR'.CSR 

? EKAPLE 


49 

50 

51 

005 1? 
00114 
0 0114 

q pi ^ 

1 77550 

7 07 002 

0137 4 6 

RTI 

PR. ERR* 

PP.DNEj MOV 

*^PP ,SAV,*CSP5 

1 AND RETURN 

1 SET LP JSR 


52 

53 

00120 

00122 

707044 

004536 

1 050.37 

JSR 

PR.DISJ CURB 

H5 # <» (SP) + 

«*pp ,CSP 

f DISABLE INTERRUPT 


54 

00126 

177550 

016770 

MCV 

PP#P0 

f DDB ADDRESS 


55 

0013? 

1 77646 
015 7 71 

MOV 

IKTCNT^Rl 

I remaining ccunt 


56 

00135 

1 77650 

7 014 75 

flFQ 

PR .FRT 

1 NDNE 


57 

00147 

15 9 7 7 1 

SUB 

56, Pi 

t ROUNDED TO WORDS 

fAND TEAR) 

58 

59 

00144 

00146 

7 3 7 7 7 5 
005271 
710 160 

ASR 

MHV 

R1 

R1 , 15CR0) 

t RETURN result TO CALLER 

60 

00152 

77f'0 1 6 
700 170 

PR.fPRTJ J'^P 

!»1 4 CR7) 

1 CDMFUPTTCN RETURN 


61 

62 

00156 

70701 4 

015746 

t OPE^ RnUTIKFl 
PR.CPRJ HP'/ 

PR ,VAM,-(6P1 

1 addtttonai. tnec 


63 

0016? 

177632 

71P746 

MPV 

^40? ,-»CSP^ 

?NDT READY • 1,2 ERR 

MSR 

64 

65 

00165 

00177 

007472 

707774 

005737 

I0T 

PR.PPKJ TST 

#*PR ,rsp 

j TAPF READV 


66 

00174 

1 77550 
100770 

RMt 

PP ,OPP 

J NO 


67 

00176 

0057?6 

TST 

(FP 1 + 

ICLEAR CAI.U FROM STACK 

60 

00?07 

01^700 

MDY 

PP , R0 

»9ET DDR ADDRESS 


69 

00?04 

1 7 7 5 7 4 
000752 

HP 

Pf^.F^T 

1 * take COMPLETE RETN 

70 1 

71 177552 PR,BIF*177552 

72 1 77550 PR, CSR*! 77550 

73 007234 PP,BP»234 

74 007044 PR,SAV«44 

75 

76 000001 1 ,FN0 

DV.PR HACCO V004,14 13--SEP-72 

sybfol taplf 

I^'TCNT 000015R PC B 

03S79 PAGF 

•4000007 

PR 000000RG 


PR 

,PP a 

0 00? 34 

PP ,RLF« 

17755? 

PR.rSRs 177550 


PR 

.CIS 

0001 ??R 

PP.PKE 

0001 14R 

PR, ERR 000114R 


PR 

,frt 

0 0 0 1 5 ? R 

PO.INT 

000056R 

PR, NAM 000714R 


PR 

.CPK' 

0001 77H 

PP .npR 

000 156R 

PP.SAVb 000044 


PR 

.TFR 

7 7 0 0! 2 9 W 

R7 B 

3 7 0 0 0 7 

PI B7070001 


R2 

« f? 1-3 7 0 ? 

R3 s 

7070003 

P4 a»4070004 


R5 

a % (? 7 0 p 0 5 

SP «l< 070706 

S7DADD 070020R 



APS, R0P 

0W^?V?fi 00i 


PRRCRS HETErTFO* 0 
FREF TORE? 19435, WORD? 

»LP!<!*'TfPR 4 
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PC05 HIGH-SPEED PAPER TAPE PUNCH DRIVER 


The paper tape punch driver supplies the basic device dependent operat- 
ing functions for the PDP-11 paper tape punch. To facilitate the de- 
vice dependent operation of the I/O common routines, the paper tape 
punch driver processes blocks of data to be punched. The driver will 
process any size block (as given in the DDB) but for efficient opera- 
tion a default (standard) block size of 32 words has been chosen. 

The paper tape reader driver provides open, close, transfer, and 
interrupt . servicing functions. The open and close functions cause the 
paper tape punch to punch two fanfolds of blank leader and trailer 
tape respectively. The transfer function causes the punching of the 
given block of data. Since the PDP-11 paper tape punch punches one 
character at a time, the interrupt servicing function provides the ac- 
tual control of the punch for each of the other functions. 

2.1 DESCRIPTION 

The paper tape punch driver consists of two distinct parts: the stand- 
ard driver table and the driver body. 

The driver table contains the following information: 

1. Facilities indicator - The facilities provided 
by the paper tape punch driver are: 

a) Single User 

b) Output only 

c) ASCII or Binary format 

d) Non-file Structured 

2. 32 word standard buffer size 

3. Run at priority 4 

4. Internal information 

a) Trailer Indicator 

b) Internal byte count 

c) Internal (byte) buffer address 

The code for the paper tape driver is organized as follows. The 
open, close, and transfer routines perform their initialization pro- 
cesses and control is transferred to the interrupt service routine for 
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actual control of the data transfer. The initialization processes con- 
sist of setting the internal byte count, the beginning buffer address, 
and the trailer indicator (0 implies open/close in process, 1 otherwise). 
The interrupt servicing routine is then called. Leader/ trailer punch- 
ing and actual transfer punching differ only in that the internal buf- 
fer address always points to a zero in the former case, and this point- 
er is incremented through the block in the later case. Upon total 
completion of the requested operation, the DDE completion return is 
taken; the DDE intermediate return occurs immediately upon initiation 
of the punching of the initial byte. At each interrupt the detection 
of an error (Punch Out of Tape) results in a request for an A002 mess- 
age at the console (Device Not Ready) . If a return from the Diagnostic 
Print routine occurs, indicating an operator request to continue, the 
function is again resumed. 

2 . 2 Program Listing 

A complete assembly listing of the driver follows. 


CV.PP MACRQ VP04.14 i3«SEP»72 03:10 PAQP i 


1 


KOPYRir,HT 1971, IP7?, DTGTTAL. E<5UTPMENT CrRP,, VAVKARO, PASS, 
IVERSIOK* NUPBFRf V«^0SA“,005 


.TITlF DV.PP 
.r.L.OBl PP 




000000 


R0«%0 




000001 


R1»1J1 




^00002 


R2»%2 


0 


000003 


R33?{3 


1 


000004 


R49’44 


2 


00005^5 


R5alJ5 


3 


000006 


SP’ise 


4 


000007 


PC*i:7 


5 



t PAPER 

TAPE PU^’CP rRTVFR 

6 



1 PREAMBI.E 


7 



1 



8 

00000 

000000 

PP j 

,i^0R0 

0 

9 

70002 

332 


.byte 

PF.PP 

0 

00003 

000 


.BYTF- 

0 

1 

70004 

002 


.BYTE 

2 

2 

70005 

074 


.byte 

PP . TNT..PP 

3 


200 


,pyTE 

20 0 

4 

00007 

206 


.BYTE 

PP ,0pK|..pp 

5 

00010 

024 


.BYTE 

pp , tfr«pp 

6 

00011 

206 


.byte 

PP ,rLS-«PP 

7 

00012 

000 


.BYTE 

0,0 


00013 

0 0^ 




8 

00014 

063200 

PP.NAR* 

,RAn50 

1 pp » 

9 

00018 

000001 

PP.TRL t 

.WORD 

1 

0 

00020 

0^0000 

PPCT I 

.'^ORD 

0 


00022 

'^000 00 

PPFPT S 

.WORD 

*?. 


CPP3 


f C'jRREVT DfB OR P 
f FACTUTTES 

» 39 UCRD STO BIFFER 
t TRAKSFER ADPRFSS 
J STATIS 

I RFLATTVF AonRFSSFS FOR CPFN 

I traksfer 
f CLOSE 
I SPF 8 SPARE 


: TRATLFR IN'OeCATPR ■ 0 
t IKTFRKAi, COUNT 
I CL RRE^’T BL'FFER PC INTER 


2 



22 

23 



1 

t DRIVEP 

nOHY 



34 

7 0^24 

n 1, P 7 i? 

< 77760 

PP.TFRj 

M0 V 

pc , P0 

? GFT ci'RPEKT ore 

35 


1 8 0 6 7 


y 0 V 

8 fR01 ,PPFPT 

t GFT pi fffr pqtktfr 



^^^1*^006 

1 77784 





26 

00036 

0180?*4 
?^000 1 0 


Mr V 

10(R0) ,R4 

f PRESERVF I^OPO COUNT 

37 

00042 

■^063f'4 


A8L 

R4 

1 COKVFPT to PYTES 

28 

0 0 0 4 4 

5" 1 *^487 

1 77760 


Mr V 

R4 ,PPrT 

I and rave 

3*5 

0 0060 

1 15787 
0000 1 

1 77740 


HO VO 

^pp.trl 

f RESET TO TER 

40 

00056 

0 1 1 646 

PP.UEi^S 

Mr V 

C6P? ?^CSP5 

t STMLLATP INTERRUPT 

41 

0 00 60 

•'*13766 

1 77776 
^070^*2 

V 

4*ST,ATS,?(3P5 

t from J8R po,yxy 


42 

00066 

013737 


V 

«^^Pp.VCT,*#3T,AT8 ! Rl.N UKRFR PUNCH STATUS 



000076 

177778 





43 

00074 

706737 

1 77564 

PP.TNTJ 

T3T 

P*PP,r3R 

? PUNCH CUT OP PAPER OR OFF 

44 

00100 

1 00434 



PP ,FRR 

i VES 

45 

00102 

0 V? 6 7 6 7 
177712 


TST 

PFCT 


46 

00106 

001416 


HPQ 

PP .CNF 

1 ALREAOY FINTSHEO 

47 

0011^ 

00628; 

1 77704 


I - C 

PCCT 

PPPFPT,*#PP’,RPG 

t COUNT This one 

48 

00114 

117737 

177702 

1 77566 


Mr VR 

f MPVE CHARACTER TC PUNCH 


49 

00122 

1 06767 

1 77870 


T8TR 

P? ,trl 

» TRAILER OR NQ 

50 

0 0126 

001402 


BFQ 

pp,vaT 

f trailer 

5 1 

00130 

006267 


IMC 

PPFp T 

1 next ADORESS of buf’. 



1 77686 





5 2 

0 0134 

052757 

000100 

177564 

PP ,NOI J 

B T 3 

«» 1 00 • •#PP1 CSR 

t enable interrupt 

53 

00142 

000002 


RTI 


t RETURN 

54 

00144 

013767 

000044 

000002 

PP.ONFJ 

Mrv 

1»*PP,8AV/. *1 0 

t SAVE REGS FCR RETURN 

•v •>'' 

00162 

004537 


..!8p 

R6 » 


56 

0 0156 

006737 

177564 


Ci.R 

*^pp,CSR 

f OISABl-E interrupt 

57 

00162 

016700 

1 7761 2 

PP.IGK : 

Mrv 

PP,R0 

f CURRENT 000 

58 

00166 

000170 



« 14 fR03 

1 COMPLFTTON return 



000014 





59 

0 017 2 

012746 

063200 

PP ,FRR 1 

Mrv 

#63200,* (SPl 

ishoh device name 

60 

00176 

012746 

j»yffl45»2 


MH V 

#422,*(SP1 

t PRINT 1*2 ERR HSG 

61 

00202 

00 0 0 4 


I0T 


t not ready 

62 

00204 

000733 


HR 

PP, TM 


63 

00206 


PP.CPK? 




6 4 

00206 

1 06267 
177604 

PP.CLS! 

Cl RR 

PP , TRL 

f INDTC4TF TRAIIEP operation 
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65 

00212 

710746 

MPV 

PC^^CSPI 


66 

00214 

062716 

177602 

ADO 

^PP,TPU-,.0«P 


67 

00220 

012667 

177576 

MOV 

(6P5+.PPFPT 

1 SFT BUFFFR ADC'RFSS 

68 

00224 

012767 

1 77524 
177566 

MOV 

*1 775?4,PPCT 

t I FOtnS TRATLFR 

69 

00232 

00071 1 

BP 

PP,t!EN 

1 MOPVAI FRHM HFRF ON 


1 177776 ST, ATS»J 77776 

2 707076 PP,VCTs76 

3 177554 PP,CSP»1 77554 

4 177556 PP,PRG«177556 

5 700044 PP,SAV»44 

6 700332 PP,PP«332 

7 700t62fPP,SPF«PP,IGN 


8 000001 • 

.END 




CV.FP mACRC VO04-14 

13<*SEP-72 

03j10 PAGF 2* 



syhfoi tapuf 





PC «1!:000007 

pR 

000000RG 

PPCT 

000020R 

FPFFT 070i?2?r 

PP,RP ■ 

000332 

PP.PRGa 

177556 

FP.CLS 000206R 

PR ,CSRa 

177554 

pp ,rK‘F 

0701 44R 

FP.FRR 000172R 

PP.TGK 

0001 62R 

PP , TNT 

000074R 

PP.KAM 000014R 

PP.K'CT 

000134R 

pp ,riPK 

000206R 

PP.SAV* 000044 

pP.SpFa 

0001 62R 

PP.TFR 

070024R 

FP.TRL 000016R 

pp.uen 

000056R 

PP , VCTa 

000776 

R0 a5J00(g0e;7 

R 1 a y. 0 0 0 0 0 1 

P2 alf070p02 

R3 ■1S000003 

R4 a 

li:00 00 0 4 

P5 al!:000005 

SP ■•4000006 

3T, ATS« 

177776 



, APs’. 000000 000 





000234 001 





ERRCRS nETECTFO? 0 





FREE CORE* 19413, KQROS 





#LPf <GT JPP 


4 



HOW TO OBTAIN SOFTWARE INFORMATION 


Announcements for new and revised software, as well as programming notes, software problems, 
and documentation corrections are published by Software Information Service in the following 
newsletters. 


Digital Software News for the PDP-8 and PDP-12 
Digital Software News for the PDP-ll 
Digital Software News for 18“bit Computers 


These newsletters contain information applicable to software available from Digital's Software 
Distribution Center, Articles in Digital Software News update the cumulative Software Per- 
formance Summary which Is contained in each basic kit of system software for new computers. To 
assure that the monthly Digital Software News is sent to the appropriate software contract at your 
installation, please check with the Software Specialist or Sales Engineer at your nearest Digital 
office. 


Questions or problems concerning Digital's software should be reported to the Software Specialist, 
Incases where no Software Specialist is available, please send a Software Performance Report 
form with details of the problems tor 

Digital Equipment Corporation 
Software Information Service 
Programming Department 
Maynard, Massachusetts 01754 


These forms, which are provided in the software kit, should be fully filled out and accompanied 
by Teletype output as well as listings or tapes of the user program to facilitate a complete inves- 
tigation. An answer will be sent to the individual and appropriate topics of genera I in- 
terest will be printed in the newsletter. 


Orders for new and revised software manuals, additional Software Performance Report forms, and 
software price lists should be directed to the nearest Digital Field office or representative, USA 
customers may order directly from the Software Distribution Center in Maynard, When ordering, 
include the code number ond a brief description of the software requested. 


Digital Equipment Computer Users Society (DECUS) maintains a user library and publishes a cata- 
log of programs as well as the DECUSCOPE magazine for its members and non-members who request 
it. For further information, please write to: 


Digital Equipment Corporation 
DECUS 

Programming Department 
Maynard, Massachusetts 01754 
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of its publications. To do this effectively we need user feedback — your critical evaluation of 
this manual. 

Please comment on this manual's completeness, accuracy, organization, usability, and read- 
ability. 


Did you find errors in this manual? If so, specify by page. 


How can this manual be improved? 


Other comments? 


Please state your position. 
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City: 

State; 


Zip or Country 
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